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Motorolas Meisterstück 


Der 68000 — der Chip mit den 
Talenten einer Groß-EDV 


Kurze Unterbrechung 2179 
Zeitsteuerung über Interrupts und Ereignisse 


beim Schneider CPC 


Zellaktivierung 


Übersichtliche Bildschirmgestaltung für die 
Tabellenkalkulation 


 Programmier-Service 


Alles in Ordnung! 
Ein Programm, das Ihr Adreßbuch überflüssig 
macht und nützliche Verzeichnisse anlegt 


Die lange Leitung 


Modems -— in Deutschland ein Problem, 
in England Renner 


Hoffnung durch HOPE-Programme 


Funktionelle Programmiersprachen erobem 
die Zukunft 


Auf vollen Touren 
Rockmusical für den Commodore 64 


Fachwörter von A—Z 
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Motorolas 


Meisterstück 


Der erweiterte Adreßbereich des 
68000-Microprozessors reicht an 
viele Maschinen der Groß-EDV 
heran. In unserer Serie über den 
68000 zeigen wir zunächst die 
Bereiche der Prozessorarchitektur, 
die für die Programmierung 
wichtig sind. 


D: 68000 entwickelte sich aus der erfolg- 
reichen 6800-Serie von Motorola, zu der 
auch der 6809-Microprozessor gehört. Mit der 
Familie der 68000-Chips baute Motorola seinen 
Erfolg weiter aus. Bei dem Prozessor stand die 
neue VLSI-Technik (Very Large Scale Integra- ° 
tion) Pate, mit der mehr als 100 000 Logikele- 
mente auf einem etwa fünf Zentimeter langen 
und mit 64 Kontakten versehenen Chip unter- 
gebracht wurden. Die Adressiermöglichkeiten 
reichen an die des DEC PDP-11 Minicomputers 
heran, wobei der 68000 den Komfort und die 
Flexibilität eines Befehlssatzes der Groß-EDV 
bietet. 

Die Adreß- und Befehlsmöglichkeiten wer- 
den wir uns in späteren Folgen genauer anse- 
hen. Zunächst wollen wir uns einen Überblick 
über die Architektur des 68000 verschaffen, 
um ein Modell für unsere Programmabläufe zu 
haben. Da wir nicht auf alle Aspekte des Chips 
eingehen können, beschränkt sich unser Mo- 
dell nur auf die Bauteile, die für unsere Bei- 
spielprogramme wichtig sind. So brauchen wir 
beispielsweise für die Addition zweier Zahlen 
nicht die Arbeitsweise der Flip-Flop-Elemente 
zu verstehen, sondern müssen uns lediglich 
mit der Registergröße und dem Befehl ADD 
beschäftigen. In unserem Modell beschränken 
wir uns daher auf die Funktionen, mit denen 
der Microcomputer programmiert wird. 


Einplatinensystem 


Wenn wir die Funktionen der Kontakte beim 
68000 untersuchen, stellen wir fest, daß damit 
digitale Busse gesteuert werden, über die der 
Prozessor mit seiner „elektronischen Umge- 
bung" Daten austauscht. Mit den Bussen läßt 
sich ein vollständiges Microcomputersystem 
aufbauen. Unser erstes Bild zeigt ein typisches 
Einplatinensystem, in dem sich der Prozessor 
den nächsten Befehl aus dem Speicher holt, 
ihn ausführt und schließlich — falls gewünscht 
— ein Zeichen zum Schnittstellenchip sendet, 


Durch die 68000-Serie 
erhalten die modernen 
Micros die Möglichkei- 
ten von Minicomputern. 
Viele Hersteller haben 
diesen Vorteil erkannt. 


Atari 520 ST 


Sinclair 


QL 


Die Befehle und Daten 
eines Einplatinencom- 
puters werden über 
einen Bus aus dem 

— Speicher geholt und 
dann verarbeitet. Da- 
nach wird das Ergebnis 
wieder auf den Bus ge- 
setzt, der es zu Peri- 
pheriegeräten sendet. 


Apple Lisa 


68000 
Micro- 
Prozessor 


Schnittstellen- 
chip für 
‚Peripherie 1 


Drucker 


. Speicher- 
‘2... chip 


Schnittstellen- 
chip für 
Peripherie 2 


Platten- 
speicher 
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Peripherie 


Der innere Aufbau des 
68000 läßt sich in drei 
Hauptbereiche untertei- 
len: die Daten- und 
Adreßregister, die 
Arithmetik- und Logik- 
einheit und die Ablauf- 
steuerung. Jede Einheit 
kann über einen digita- 
len Datenbus Informa- 
tionen austauschen. 
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ko Speicher 


der das Zeichen dann direkt auf den Bild- 
schirm überträgt. 

Dieser Hardwareaufbau ist Grundlage unse- 
res Modells. Dabei ist zwar der zentrale Daten- 
bus die wichtigste Komponente, doch spielen 
auch die internen Register des Microprozes- 
sors eine wesentliche Rolle. 

Unser zweites Bild zeigt den Chip aus der 
Sicht des Programmierers. Wir werden uns die 
drei logisch voneinander getrennten Bereiche 
einmal genauer ansehen: 

Die Register sind — wie auch in anderen Pro- 
zessoren — Arrays mit Speicherstellen, die zur 
Kurzspeicherung von Daten oder Zwischener- 
gebnissen eingesetzt werden. Der 68000 ver- 
fügt über acht Daten- und acht Adreßregister, 
die je eine Breite von 32 Bit haben. Durch die 
Aufteilung in zwei Bereiche werden Maschi- 
nenabläufe und Programmierung doch schon 
sehr vereinfacht. 

Wenn Sie beispielsweise den Inhalt einer 
Speicherstelle (deren Adresse sich bereits in 
einem der internen Register befindet) laden 
wollen, um einen arithmetischen Ablauf durch- 
zuführen, muß zunächst der Pointer (oder die 
Speicheradresse) in ein Adreßregister gela- 
den werden. Daraufhin können die Daten in 
einem Datenregister gespeichert werden. In 
der Assemblersprache wird daraus: 

MOVE (A2),D4 


MOVE ist der Befehl zum Übertragen (oder Ko- 
pieren) von Daten, A2 gibt als Quellenadresse 
den Inhalt des Adreßregisters 2 an, während 
D4 das Datenregister 4 als Ziel festlegt. Wenn 
die Adresse der Quelldaten in D4 läge, könn- 
ten wir jedoch nicht einfach 

MOVE (D4),A2 


schreiben, da eine Adressierung von Quelle 


Registeradressen 
31 


Acht 
Daten- 

register im 
32-Bit- 
Format 


Sieben 
Adreß- 
register im 
32-Bit- 
Format 


Zwei 
Stapelzeiger 


1 
A7 Stapelzeiger (Anwender) 
Stapelzeiger (System) 
1 


3 


I 
15 
Die 15 Register im 32-Bit-Format bieten dem Programmierer fast 
unbegrenzte Möglichkeiten. Die Unterteilung der internen Register 


in einen Adreß- und einen Datenbereich verlangt jedoch Sorgfalt 
bei der Programmerstellung. 


3 0 
0 


und Ziel beim Befehl MOVE nicht zulässig ist. 
Wichtig ist weiterhin, daß speziell die Daten- 

register fünf voneinander verschiedene Daten- 

typen annehmen: 

@ Bit — eine Binärstelle 

@ BCD-Stelle — ein Nybble oder Halbbyte 

@ Byte — ein Acht-Bit-Zeichen 

@® Word - ein 16-Bit-Computerwort 

® Long Word — ein 32-Bit-Computerwort. 


Auf BCD-Stellen und Langwörter gehen wir 
später noch genauer ein, für den Augenblick 
wollen wir sie einfach als größere Datenein- 
heiten ansehen. 


Das Befehlsattribut 


Bei den meisten Befehlen kann der Datentyp 
als Befehlsattribut angegeben werden. Wenn 
Sie beispielsweise die Bits 0 bis 7 von DI auf 
D2 kopieren wollen, schreiben Sie 

MOVE.B D1,D2 


Alle 32 Bits lassen sich mit folgendem Befehl 
kopieren: 
MOVE.L D1,D2 


Das Attribut (oder der Code für die Daten- 
länge) eines 16-Bit-Wortes lautet .W. Dies ist 
die Standardeinstellung, wenn kein anderer 
Code angegeben wird. 


Wortlängen BL 


Der 68000 kann über 
Befehlserweiterungen 
Wörter mit fünf ver- 
schiedenen Längen 
adressieren und damit 
Daten in Gruppen von : 
einem bis 32 Bits verar- : 
beiten. Diese Möglich- : 
keit gab es bei den äl- 
teren Acht-Bit-Chips 
nicht. 


Noch ein Wort zum Registersatz. Das Adreß- 
register A7 wird als Pointer für den System- 
stack eingesetzt — seien Sie daher beim Ge- 
brauch dieses Registers äußerst vorsichtig. 

Die ALU (Arithmetik- und Logikeinheit) ist 
der zweite große Bereich unseres Modells. 
Dieser Teil führt die arithmetischen und logi- 
schen Vorgänge aus und speichert das Ergeb- 
nis im Zieloperanden. So addiert die ALU bei 
folgendem Befehl D1 und D2 und stellt das Er- 
gebnis in D2: 

ADD D1,D2 


Auch hier können Sie im Befehl die Daten- 
länge angeben und nur die niederwertigen By- 
tes addieren: 

ADD.B D1,D2 


In unserem Modell ist der ALU das Register SR 
oder Status Register beigeordnet, das Informa- 
tionen über das Ergebnis des vorangegange- 
nen Befehls liefert. So etwas wird beispiels- 
weise für eine bedingte Verzweigung ge- 
braucht, die vom Ergebnis des vorigen Befehls 
abhängt. 

ADD D1,D2 Di mit D2 addieren 

BVS OFLOW auf Überlauf prüfen 

MOVE D1,D3 D1 auf D3 kopieren 


Hier wird entweder zum Label OFLOW ver- 
zweigt, wenn das Überlaufbit in SR gesetzt ist, 
oder D1 auf D3 kopiert, wenn es nicht gesetzt 
wurde. Der Befehl BVS (Verzweigung bei 
Überlauf, englisch: „Branch if Overflow Set") 
prüft, ob ein Überlauf stattgefunden hat (oder 
Bit V des Statusregisters gesetzt ist). In diesem 
Beispiel könnte das Ergebnis des ADD-Be- 
fehls das Setzen des V-Bits verursachen. Über- 
läufe entstehen, wenn das Ergebnis eines 
arithnmetischen Vorgangs nicht mehr in die 
Wortlänge der Operanden paßt. 

Das Statusregister besteht aus 16 Bits, und 
seine Bytes werden vom System wie folgt auf- 
geteilt: 


15 87 0 
SYSTEMBYTE USER BYTE 
with condition 
codes 


Die einzelnen Bits zeigen das Ergebnis der 
vorangegangenen Befehle an — wir gehen 
später darauf genauer ein. 


Adressierung 


Der Bereich für Ablaufsteuerung enthält den 
Programmzähler und ein Register, in dem die 
nächste Adresse steht, die aus dem Speicher 
geholt werden soll. Nach dem Laden wird ein 
Befehl erst einmal decodiert, um festzustellen, 
welche Art Ablauf die ALU ausführen soll, und 
wo die Quell- und Zieloperanden liegen. 

Der Programmzähler ist zwar 32 Bit lang, 
aber nur mit 24 Kontakten an den Bus ange- 
schlossen. Doch selbst mit 24 Bits steht ein rie- 
siger Adreßbereich bis zu Hex FFFFFF Bytes 
zur Verfügung. Jede Hexadezimalstelle ent- 
spricht vier binären Bits, so daß die 24 Bits bis 
zu 16 777 216 Bytes direkt adressieren können. 
Da jedoch alle Befehle nur mit geraden Adres- 
sen beginnen dürfen, kommt ein Adreßbereich 
von 8388608 Computerwörtern der Wirklich- 
keit näher. 

Interessant ist auch die Anordnung der Da- 
ten im Speicher. So lassen sich mit dem 68000 
einzelne Bytes ansprechen, und die Adressier- 
methode unterscheidet sich erheblich von den 
bereits besprochenen Adressierungsarten. 
Die folgende Zeichnung macht deutlich, wie 
die Speicheradressierung des 68000 das 
höchstwertige Byte eines Wortes liefert. 


15 8 7 0 
Word byten 
Einige Befehle wirken direkt auf den Pro- 
grammzähler und veranlassen so eine Pro- 
grammverzweigung; entweder ohne Bedin- 
gung wie bei BRA ZURUECK (BRA - englisch 
„Branch Always" — bedeutet „Unbedingte Ver- 
zweigung" auf die Adresse, die das Label ZU- 
RUECK darstellt) oder bedingt wie in unserem 
letzten Beispiel BVS OFLOW, in dem die Ver- 
zweigung von dem Setzen des V-Bits im PS ab- 


hängig ist. Bei jeder Verzweigung oder Ände- 
rung des Programmflusses wird der Pro- 
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Das Bild zeigt die Kon- 
takte des 68000. Beach- 
ten Sie die 24 Adreßlei- 
tungen und die 15 Da- 
tenleitungen. Im Ge- 
gensatz zu seinem na- 
hen „Verwandten“, dem 
68008 (der nur einen 
Acht-Bit-Adreßbus be- 
sitzt), kann der 68000 
Speicheradressen von 
Hex 000000 bis FFFFFF 
ansprechen. Der 
nächstgrößere Prozes- 
sor dieser Serie - der 
68020 - verfügt über 
einen vollständigen 32- 
Bit-Bus. Der 68000 ist 
das perfekte Beispiel 
eines modernen Micro- 
prozessors - der Chip 
mit seinen mehr als 

100 000 Logikschaltun- 
gen besitzt die Verar- 
beitungsmöglichkeiten 
eines Minicomputers. 
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grammzähler auf die Adresse des nächsten 
Befehls gesetzt, der ausgeführt werden soll. 

Computerhersteller preisen oft die große 
Zahl von Befehlen an, die auf ihren Maschinen 
zur Verfügung stehen. Diese Befehlsvielfalt 
kann jedoch sehr verwirren, wenn für jeden 
Operandentyp oder Adreßmodus ein anderer 
Befehl verwandt werden muß. Dies trifft beson- 
ders auf die älteren Acht-Bit-Prozessoren zu. 
Der 8085 besitzt beispielsweise 63 verschie- 
dene MOV-Befehle, die die Register auf unter- 
schiedliche Weise ansprechen. 

Viel wichtiger als die Zahl der Befehlscodes 
ist der damit erfaßte Bereich, die Vielfalt der 
unterstützten Datenobjekte und die Flexibilität 
der Adreßarten. 


Flexibler Befehlssatz 


Motorola bietet einen außerordentlich flexi- 
blen Befehlssatz für Datenobjekte. Die meisten 
Befehle sind für die Adressierung von Bytes, 
Wörtern und Langwörtern ausgelegt. Sie kön- 
nen binäre Multiplikation, Division und BCD- 
Arithmetik ausführen und verfügen über die 
übliche Befehlspalette für Logikabläufe, Pro- 
grammsteuerung und das Kopieren von Daten. 

Die vielen Adreßarten lassen sich jedoch 
nicht in allen Befehlen einsetzen. enn der Zie- 


loperand des MOVE-Befehls beispielsweise 
ein Adreßregister ist, können Sie nicht einfach 
MOVE D3,A6 schreiben, sondern müssen MO- 
VEA oder LEA (MOVE A D3,A6) verwenden. 
Hier wurden einige Adreßmöglichkeiten zu- 
gunsten einer großen Zahl der möglichen Da- 
tenobjekte geopfert. 

Im Vergleich zu den Befehlssätzen der Acht- 
Bit-Micros (und selbst einigen Computern der 
Mini- und Groß-EDV) hat der 68000 einen un- 
gewöhnlich breiten Anwendungsbereich, kann 
eine Vielzahl von Datenobjekten verarbeiten, 
enttäuscht aber mit der wenig flexiblen Adres- 
sierung. Dieser Nachteil wird durch die Kom- 
paktheit einiger Befehle (auch „Quick"-Be- 
fehle genannt) teilweise wieder ausgeglichen. 
Bei Quick-Befehlen ist der gesamte Ablauf in 
einem Maschinenwort enthalten. Wenn Sie 
zum Beispiel die Zahl 25 in ein Datenregister 
laden wollen, genügt 

MOVEO #25,D3 


wonach 25 in D3 gespeichert ist. Der gesamte 
Befehl inklusive der Konstanten 25 belegt nur 
ein Wort. 

In der nächsten Folge sehen wir uns Einsatz 
und Struktur der Adreßarten genauer an und 
geben einige Programmbeispiele. 


Zellaktivierung 


Den generellen Aufbau unseres Tabellenkalkulationsprogrammes 
besprachen wir bereits. Wir lenken unsere Aufmerksamkeit nun auf 
die Programmierung der Bildschirmdarstellung für den Acorn B, den 
Schneider CPC und den Sinclair Spectrum. 


D: Mikros, für die das Kalkulationspro- 
gramm geschrieben wurde, produzieren 
ihre Bildschirmgrafiken auf unterschiedliche 
Weise. Wir stellen daher die Grafikroutinen für 
jeden Rechner gesondert vor. (Die Routinen 
für den Commodore 64 finden Sie auf Seite 
2132.) Ihre Hauptfunktionen sind die Ausgabe 
der Tabellenmatrix und die Steuerung des 
Cursors innerhalb der Matrix. 

Die Routinen zur Cursorsteuerung enthalten 
Sektionen, die den Cursor nach allen vier Sei- 
ten durch das Kalkulationsschema bewegen. 
Auf dem Bildschirm ist immer nur ein Teil der 
Matrix sichtbar. Die Steuerungsroutinen müs- 
sen also auch die Bewegung des Bildaus- 
schnitts über das Arbeitsblatt übernehmen. 
Die Zeilen 1000 bis 1080 bilden eine Unterrou- 
tine zum Darstellen des Kalkulationsblattes. 
Der bei Zeile 1100 beginnende Abschnitt ist ein 
wichtiger Kontrollteil des Hauptprogramms. Er 
prüft, ob die Tastatur betätigt wurde. Mit ihrer 
Hilfe bewegen Sie den Cursor und wählen 
Funktionen an, etwa die Eingabe einer Berech- 
nungsformel in eine bestimmte Zelle. An- 
schließend wird die entsprechende Unterrou- 
tine aufgerufen. 


Den Cursor bewegen 


Die meisten Cursor-Funktionen sind Bestand- 
teile später folgender Programmabschnitte. 
Der Versuch, eine dieser Funktionen bereits 
jetzt anzuwählen, führt zu einem Absturz des 
Programms. Mit den Routinen aus diesem Teil 
können Sie immerhin schon den Cursor über 
den Bildschirm bewegen. In den Zeilen 1200 
bis 1600 stehen die Unterprogramme zur Steu- 
erung nach rechts, links, oben und unten. Sie 
sind prinzipiell für jede Bewegungsrichtung 
gleich aufgebaut. Wir betrachten lediglich das 
erste, um einen Eindruck der Arbeitsweise al- 
ler zu bekommen. 

Nach Betätigen der Steuertaste „Cursor 
rechts“ verzweigt das Hauptprogramm zur 
Subroutine bei Zeile 1200. Zeile 1210 prüft, ob 
der Cursor bereits den rechten Rand des Ar- 
beitsblatts erreicht hat. Dazu wird getestet, ob 
die X-Koordinate bereits den maximalen Wert 
15 erreicht hat. Bei Gleichheit der Werte wird 
die Subroutine abgebrochen und das Haupt- 
programm weiter abgearbeitet. Andernfalls 
folgt ein Vergleich, ob sich der Cursor am 


Cursor am Rand 
des Arbeits- er 
blattes? ME 


ursor am Rand 
des Bildschirm- 
fensters? 


(GOSUB 1600) 


X (GOSUB 1200, 
*% 1300, 1400 oder 
% 1500) 


E% H2, U1, U2) 


(GOSUB 1800, 
© 1850) 


Rückkehr ins ISOTO1110) 


Hauptprogramm 


Rand des Bildschirmfensters befindet. Die Va- 
riablen Hl und H2 bezeichnen die äußersten 
noch innerhalb des Fensters sichtbaren hori- 
zontalen Zellen. Wenn etwa Hl gleich 2 und H2 
gleich 6 ist, sind die Spalten 2 bis 6 der Matrix 
auf dem Bildschirm sichtbar. Übereinstim- 
mende Werte in X und H2 lösen folgende Ak- 
tionen aus: Der Cursor wird ausgeschaltet, der 
Wert in X um Eins erhöht, ebenso die Werte in 
Hl und H2. Die Subroutine bei 1800 schreibt 


(GOTO 1110) 


% (GOSUB 1600) 


% (GOSUB 1200, 
® 1300, 1400 oder 
„E 1500) 


% (GOSUB 1650) 


Unser Flußdiagramm 
zeigt, wie das Kalkula- 
tionsprogramm den 
Cursor auf dem Ar- 
beitsblatt steuert. Die 
Routinen bewegen den 
sichtbaren Ausschnitt 
auf den nächsten Be- 
reich, wenn der Cursor 
den oberen, unteren, 
linken oder rechten 
Rand des Fensters er- 
reicht. 
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Sinclair FERBLT 


Spectrum il 


neue Zeilen- und Spaltennummern an die Rän- 
der der Matrix, und die neuen Daten der jetzt 
sichtbaren Zellen werden auf dem Bildschirm 
ausgegeben. Schließlich wird der Cursor wie- 
der eingeschaltet. 

Die Unterprogramme bei Zeile 1600 und 1650 
schalten den Arbeitsblatt-Cursor ein und aus. 
Sie sind wieder für jeden Rechnertyp geson- 
dert erstellt. Alle Versionen zeigen den Cursor 
durch Invertieren der Farben in der angegebe- 
nen Zelle. 

Auf dem Spectrum werden die Vorder- und 
Hintergrundfarbe zu jeder Zeichenposition des 
Bildschirms durch ein Byte in einer Tabelle, 
der „Attribute Map“, bestimmt. Die unteren 
drei Bits geben die Vordergrundfarbe (INK) 
an, die Bits drei bis fünf die Hintergrundfarbe 
(PAPER). Um eine Zelle zu invertieren, müssen 


ORY 

1172 IF As$="G" THEN GO SUB 
: REM GET PREVIOUS SHEET 
1174 IF A$="2" THEN GO SUB 
» REM CLEAR CURRENT SHEET 
117& IF A$="R" THEN GO SUB 
: REM REPLICATE FORMULA 


: REM TAB TO NEW CELL 


1178 IF A$="T" THEN GO SUB 


wir die ihr zugehörigen Bytes in der Attributta- 
belle lokalisieren und die Bit-Trios miteinan- 
der vertauschen. 

Die Versionen für den Acorn B und den 
Schneider CPC arbeiten etwas komplizierter, 
da auf diesen Rechnern der Inhalt einer Zelle 
mit den veränderten Farbinformationen neu 
ausgegeben werden muß. Die Feldvariable 
M(y,x) enthält die Werte der Berechnungszel- 
len des Arbeitsblatts. Die Routinen ermitteln 
den derzeit gültigen Inhalt der zu invertieren- 
den Zelle aus diesem Array und wandeln ihn in 
eine PRINT-reife Zeichenkette um. Auf dem 
Acorn B vertauschen wir mit dem Befehl CO- 
LOUR die Farben. Beim Schneider CPC genügt 
das Steuerzeichen CHRS$(24), um beim Print- 
Befehl die Farbwerte für PEN und PAPER aus- 
zutauschen. 


1870 POKE CU+3,56: POKE CU+4,56% 


5100 1890 60 SUB 1900: RETURN 
1700 REM ** PRINT DATA IN SHEET 
5000 1710 FOR I=0 TO & 
i 1720 FOR J=0 TO 3 
5700 1730 LET P$=STR$ (M(I+V1,J+H1)) 
1740 PRINT AT VEI+1) ,HAJ+1) 5" 
5200 " 


1745 PRINT AT VCI#+1) ,CHCJ+1)+5-L 


100 60 SUB 3000 

110 60 SUB 1000 

120 GO SUB 1700 

130 60 SUB 1100 

ae stm 

1000 BORDER 1: PAPER 1: CLS : IN 
Kı7 


1005 PRINT " COLUM 
N ge 

1007 PRINT "ROW ii, 2, 3 
h 4," 

1010 PRINT "------- demo en + 
ANIKISJUNNGI, {EAN 


iDz0 FOR Dei ı0 6 
1030 PRINT CHR$ (C+64) ;". I 
I ı I un 


1040 PRINT "------- 42 - +----- + 

--- 4-4" 

1050 NEXT C 

1060 PRINT CHR$ (C+84);". ) 
) ) ) Ir 

1070 PRINT "------- 4---- 4---- + 

---- ++" 


1080 RETURN 

1100 PRINT AT 0,0;5"CELL:";CHR®$ < 
Y+64);STR$ (X) 

1110 LET A$=INKEY$: IF A$="" THE 

DM: 00 TO LALD 

1120 IF A$="8" THEN GO TO 1200; 
REM MOVE RIGHT 

1130 IF A$="5" THEN 60 TO 1300: 
REM MOVE LEFT 

1140 IF A$="&" THEN GO TO 1400: 
REM MOVE DOWN 

.1150 IF A$="7?" THEN 60 TO 1500; 
REM MOVE UP 

1155 IF A$="C" THEN 60 SUB 2300 
: REM CALCULATE SHEET 

1160 IF A$="F" THEN GO -SUB 2000 
: REM INPUT FORMULA 

1165 IF A$="E" THEN 60 SUB 2100 
® REM ENTER NUMERIC DATA IN CELL 
1168 IF A$="H" THEN GO TO 4000: 
REM PRINT HELP SCREEN 

1170 IF A$="S" THEN GO SUB 5150 
: REM STORE CURRENT SHEET IN MEM 


1180 IF A$="D" THEN GO SUB 7000 
» REM LOAD/SAVE DATA/FORMULAS 
1190 GO TO 1110 

1200 REM ****%* MOVE RIGHT #x%*%*%* 
1210 IF X=15 THEN GO TO 1100 
1220 IF X=H2 THEN GO SUB 1400: 
LET X=X+1: LET Hi=Hi+1: LET H2=H 
2+1: GO TO 1270 

1230 GO SUB 1600: LET X=X+1: 60 
SUB 1650: GO TO 1100 

1270 GO SUB 1800: GO SUB 1700: G 
oO TO 1100 

1300 REM ***** MOVE LEFT #*%*%** 
1310 IF X=1 THEN GO TO 1100 
1320 IF X=Hi THEN GO SUB 1800: 
LET X=X-1: LET Hi=Hi-1: LET H2=H 
2-1: GO TO 1370 

1330 GO SUB 1600: LET X=X-1: 60 
SUB 1450: GO TO 1100 

1370 GO SUB 1800: GO SUB 1700: G 
O0 TO 1100 

1400 REM #***x** MOVE DOWN ****x*B 
1410 IF Y=15 THEN 60 TO 1100 
1420 IF Y=V2 THEN GO SUB 1400: 
LET Y=Y+1: LET Vi=Vi+1: LET V2=V 
2+1: GO TO 1470 

1430 GO SUB 1800: LET Y=Y+1: 60 
SUB 1850: GO TO 1100 

1470 GO SUB 1850: GO SUB 1700: G 
0 TO 1100 

1500 REM ***x** MOVE UP ##x%%*%*%%* 
1510 IF Y=1 THEN GO TO 1100 
1520 IF Y=Vi THEN GO SUB 1400: 
LET Y=Y-1: LET Vi=V1-1: LET V2=V 
2-1: GO TO 1570 

1530 GO SUB 1800: LET Y=Y-1: 60 
SUB 1650: GO TO 1100 

1570 60 SUB 1850:.60 SUB 1700: G 
oO TO 1100 

1800 REM ** TURN CURSOR OFF *** 
1610 LET CU=22528+32%(VCY+1-V1)) 
+H(X+1-Hi) 5 

1815 POKE CU,15: POKE CU+1,15: P 
OKE CU+2,15 

16820 POKE CU+3,15: POKE CU+4,15: 
RETURN 

1450 REM *** FURN CURSOR ON *#** 
16560 LET CU=22528+32#(VCY+1-V1)) 
+H(X+1-H1) 

1685 POKE CU,54: POKE CU+1,56: P 
OKE CU+2,56 


EN (P$));P$ 

1750 NEXT J: NEXT I 

1760 GO SUB 1850: RETURN 

1800 REM *** PRINT COLUMN NOS ** 
1810 FOR I=Hi TO H2 

1820 PRINT AT 1,7+6%*C1I-Hi)3;1;". 


1830 NEXT I 

1840 RETURN 

1850 REM ** PRINT ROW NOS #*** 
1870 FOR C=VI TO v2 

1880 PRINT AT 2x*(C-V1)+3,0;CHR$ 
C+84);"." 

1890 NEXT C 

1895 RETU 

1700 REM * FORMULA CURRENT CELL 
1920 LET D$=F$((Y-1)*15+X,1 TO > 
1730 PRINT AT 18,05 "FORMULA: 


1940 PRINT AT 18,0; "FORMULA: ";D 
s 
1945 RETURN 


Routinen zum Feldaufbau 


3000 REM KuuKKKEHRRuEERERERENE 
3001 REM * SETUP ARRAYS * 
3002 REM KHHaK RER RERERRR 
su10 DIM H(#): DIM VYC?)ı DIM SL2 
0%: DIM S$(209: DIM E$(20): DIM 

G68(20): DIM C(20) 

3020 FOR C=0 TO 3 

3030 LET H(C+1)=6*C+8: REM CALC 

xX-POS 

3040 NEXT C 

3050 FOR C=i1 TO ? 

3080 LET V(C)=2#C+t1: REM CALC Y- 
POS 

3070 NEXT C 

3075 LET Xslı LET Y-I 

3080 LET Hi=x: LET Ha=xt3ı LET V 


1=1: nn V2=V1+6 
3070 R KERRREEREERKERTEREN ER 
3091 REM * VALUE ARRAY * 

3092 REM HH HH KH HK RER ERREEERRH 

3100 DIM Mf19,15 ı DIM NC15,159 

3110 FOR I=1 TO 15 

3120 FOR J=1 TO 15 

3130 LET MI, PD=I#J 

3140 NEXT Js NEXT I 

3150: DIM F#(259,20): DIM 68(209: 
RETURN 


Acorn B 


IOREM **** BBC SPREADSHEET #**%* 


40 MODE 4 

ee 

&0 LET CO$=CHRE (30) : CL$=CHRE(S) : CR$=l 
HRE 93 : CUS=CHRE( 11) : CD$=CHREL( 10) 

"0 REM WDU23,1,0:05030} 

100 GOSUB 3000 :REM SETUP ARRAYS & SCRE 
EN VARIABLE 

110 GOSUB 1000:REM PRINT SCREEN 

120 GOSUB 1700:REM PRINT DATA WINDOW O 
N SCREEN 


130 GOTO 1100:REM MAIN KEYBOARD ROUTIN 


Bi 
mr Stop 
1000 PRINT CHR$(12) 
1003 PRINT ! vo Lim NS 
100% PRINT 
1007? PRINT "ROW 1, 2. 3. 4 
. Sun 
1010 MRimNT +----- +----- +----- + 
----- Hama" 
1020 FOR |C“ 1107 
1030 PRINT N CHRECCH&AD 5". I j 
I | j hin 
I0eD FRINT N mm Heron Karin anhnlan +---- + 
----- 4-4" 
1050 NEXT C 
1060 PRINT" "CHRSCCH&A) —". I j 
I I j In 
1070 PRINT | mom maria fu namen a Yardenung + 
---- 4-4" 


1080 RETURN 

1100 P&=CHR&(Y+&A) +STRE$(CX) : PRINT CO$;CD 
S"CELL:";Ps;" " 

1110 LET A$=GET$ 

1120 IF A$=CHR$(137) THEN 1200:REM MOVE 
CURSOR RIGHT 

1130 IF A$S=CHR$(134) THEN 1300 :REM MOVE 
CURSOR LEFT 

1140 IF A$=CHR$(138) THEN 1400:REM MOVE 
CURSOR DOWN 

1150 IF A$=CHR$(139) THEN 1500:REM MOVE 
CURSOR UP 

1152 IF A$="H"THEN GOSUB 000 :REM PRINT 
HELF SCREEN 

1154 IF A$="F" THEN GOSUB 2000:REM INPU 
T FORMULA 

11564 IF A$="S"THEN GOSUB 5150 :REM STORE 
CURRKET SHEBT 

1158 IF AS="G"THEN GOSUB S100:REM GET P 
REWIOUS SHEET 

1160 IF A$="C" THEN GOSUB 2300:REM CALC 
ULATE SHEET ; 

1155 IF A$=CHR$(13) THEN RETURN 

1170 IF A$>="0" AND A$<="9" THEN GOSUB 
Z100:REM INPUT DATA ROUTINES 

1180 IF A$="2" THEN GOSUB 5000:REM CLEA 
RSHEET 

1185 IF A$="R" THEN GOSUB 5700:REM REPL 
IDATE SHEET 

1187 IF A$="T" THEN GOSUB 5200:REM TAB 
70 NEW: DELL 

1187 IF CINKEY(-119)> THEN GOSUB 7000:R 
EM LOAD SAVE ROUTINES 

1190 GOTO 1100:REM GD BACK TO START 

1200 REM **%*x**x* MOVE RIGHT #***** 

1210 IF X=15, IMEN 1100 

1220 IF X=H2 THEN GOSUB 1600 :X=X+1;Hi1=H 
1+1:H2=H2+1:60T0 1270 

1230 GOSUB 1600:LET X=X+1:60SUB 1650:60 
TO 1100 

1270 GOSUB 1800:G60SUB 1700:G0TO 1100 

1300 REM **#*%**%** MOVE LEFT ***%** 

isio IM x=1 IMEN 1100 


1320 IF X=Hi THEN GOSUB 1800 :X=X-1:Hl1=H 
1-1:H2=H2-1:G0T0 1370 

1330 GOSUB 1800:LET X=X-1:605UB 16850:60 
TO 1100 

1370 GOSUB 1800:6G0SUB 1700:60T0 1100 

1400 REM #*** MOWE DOWN ##*** 

1410 IF Y=15 THEN 1100 

1420 IF Y=W2 THEN GOSUB 1800:LET YeYr+lı 
w1=yl+l :VZ2=eV2+1:60T0 1470 

1430 GOSUB 1800:LET Y=Y+1:60SUB 1850 :60 
TO 1100 

1470 GOSUB 1850 :G0SUB 1700:60TQ 1100 

1500 REM *#**** MOVE UP ###*# 

1510 IF Y=1 THEN 1100 

1520 IF Y=WV1.THEN GOSUB 1600: LET T=er+lı 
Vi=W1-1:V2=V2-1:60T0 1570 

1530 GOSUB 1$00:LET Y=Y-1:605UB 1850:60 
TO 1100 
1570 GOSUB 1850:G0OSUE 1700:60T0 1100 
1$00 REM *###**= TURN CURSOR OFF ###* 
1610 F$=STR#$CMCY-V1+1,X-H1+1)) hi 
1615 IF LEN(P$><5 THEN P$=" "+P$:60T0 I 


1820 COLOUR 1:COLOUR 128 
1625 PRINT TABCH(X-Hi +13 -1 ,VCY-V1#19-19 


1830 COLOUR 1:COLOUR 1283 

1640 RETURN 

1650 REM #**#*** TURN CURSOR ON ##*** 
1660 P$=STR#$(M(Y-V1+1,X-Hlt1?) 

1665 IF LEN{P#)<S THEN P$=" "+P$:60T0 1 


1870 COLOUR 2:COLOUR 129 
1675 PRINT TABCHCX-Hi+1)-1,VCY-V1+H1)-1) 


1880 COLOUR 1:COLOUR 128 

1690 GOSUB 1900 :RETURN 

1700 REM #**** PRINT DATA WINDOW FROM S 
HEET ON SCREEN **%** 

1710 FOR 1=0 TO ? 

1720 FOR J=0 TO 4 

1730 P$=STR$(MCI+VI ,J+H1)) 

1735 IF LEN{P$)<5 THEN P$=" "+P$:G60T0 I 
?35 

1740 PRINT TABCH<CJ+1)-1 ,VCI+19-1) 5" 


1745 PRINT TABCHCJ+1)-1,VCI+1)-1);P$ 
1750 NEXT J,1 

1780 GOSUB 1650 :RETURN 

1800 REM ***** PRINT COLUMN NO, **%** 

1810 FOR I=Hi TO H2:PRINT TAB(8+6*CI-H 
13,3 515" ,* 

1820 NEXT I:RETURN 

1850 REM #***** PRINT ROW LABELS #*%*%** 

1880 FOR C=V1 TO v2 

1870 PRINT TAB{1 ,VCC-V1+19-1) HZ CHRSCC+EA 
van; 

1880 PRINT:NEXT C:RETURN 

1700 REM **** FORMULA OF CURRENT CELL * 
** 

1910 LET D$=F$((Y-1)#15+X) 

1920 PRINT TAB(0,22);" 


1730 PRINT TAB(0,22);"FORMULA: ";D$ 
1940 RETURN 


Routinen zum Feldaufbau 


3000 REM ***** SETLP ARRAYS xx#*** 
3010 DIM H<5) ‚V(8) ,ST(20) ,ST$(20) ,E$(20 
),6$(20) ,C(20) 

3020 FOR C=0 TO 4 

3030 LET HiC+1)=6#C+10 

3040 NEXT C 

3050 FOR C=1 TO 8 

3060 LET V(C)=2*C+4:REM CALC YPOS 

3070 NEXT C 

3075 X=1:Y=1:REM INITIAL CURSOR POSITIO 
3080 Hi=X:H2=X+4:V1=Y:V2=Y+7 
3070 REM ***** DIM SHEET ARRAYS ##** 
3100 DIM M<15,159:DIM N(15,15) 

3110 FOR I=1 TO 15:FOR J=1 TO 15 

3120 LET M(I,D=I%J+1 

3130 NEXT J,I 

3140 DIM F$(225) 

3150 RETURN 


2163 
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Schneider CPC 


100 GOSUB Z000:REM SETUF ARRAYS & VARIA 
BLES 

110 GOSUB 1000:REM PRINT SCREEN 

120 GOSUB 1700:REM PRINT DATA ON SCREEN 
150 GOTO 1100 


Far STOR 
1000 REM PRINT SCREEN DISPLAY 
LORSSBESEPRINT.. " EUE EM 
N g" 
100& PRINT 
1007 PRINT "ROW ER 2; 3 4. 
Bin 
1010 PRINT " 4----- +----- +----- +- 
-- 4 +" 
1020 FOR C=1 TO 7? 
1030 PRINT " "CHR$(C+84) 5". | j 
j j | E* 
1040: PRINT " ------- +----- + ----- 4+----- +- 
-—— nt... +" 
1050 NEXT C 
1080 PRINT " "CHR&$({C+S4);". | | 
I | | 8 
EORD: PRINT N un kemaen Faras=- rl aetegke or Fr 
- + +" 


1080 RETURN 

1100 LOCATE 1,1:P&=CHR$(Y+&4)+MIDE(STREC 

KINZLSDIRRINT "CELL ";Pps;" * 

1110 A$=INKEY$:IF At="" THEN 1110 

1120 IF A$=CHR$(243) THEN 1200:REM MOVE 
RIGHT 

1130 IF A$=CHR$(242) THEN 1300:REM MOVE 
GERT 

1140 IF A$=CHRE&(241) THEN 1400:REM MOVE 
DOWN 

1150 IF At=CHR#(240) THEN 1500:REM MOVE 
UP 

1155 IF A$="F" THEN GOSUB Z000:REM INPUT 
FORMULA 

11%0 IF A$="C" THEN GÜSUB 2300:REM CALCU 
LATE SHEET 

1185 IF A$=CHR#(13) THEN RETURN 

1170 IF A$>="0" AND A$<"?" THEN GOSUB 21 
0O0:REM ENTER NUMERIC DATA 

1180 IF A$="B" THEN GOSUB SO00:REM CLEAR 
SHEET 

1185 IF A$="V" THEN GOSUB SIN0:REM GET P 
REVIPOUS SHEET 

1187? IF A$="G" THEN S200:REM MOVE CURSOR 
TO NEW CELL 

1188 IF A$="R" THEN GOSUB 5700 

1190 GOTD 1100 

1200 REM #*** MOVE RIGHT **** 

1210 IF X=15 THEN 1100 

1220 IF Xx=H2 THEN GOSUB 1400 :X=X+1 :Hi=Hl 
+1 :H2=H2+1:60T0 1270 

1230 GOSUB 1600:LET X=X+1:60SUB 1650 :60T 
O 1100 

1270 GOSUB 1800:60SUB 1700:G0T0 1100 
1300 REM #%*** MOVE LEFT *** 

1310 IF x=1 THEN 1100 

1320 IF X=Hi THEN GOSUB 1400 :X=X-1:H1=Hl 
-1 :H2=H2-1:60T0 1370 

1330 GOSUB 1600:LET X=X-1:60SUB 1650 :G60T 
0 1100 

1370 GOSUB 1800 :G0SUB 1700:60T0 1100 
1400 REM **** MOVE DOWN **#* 

1410 IF Y=15 THEN 1100 

1420 IF Y=V2 THEN GOSUB 1500: Y=Y+1:V1=Vi 
+1:V2=V2+1:6G0T0 1470 

1430 GOSUB 1800:LET Y=Y+1:GOSUB 18450 :60T 
0 1100 

1470 GOSUB 1850 :G0SUB 1700:G60TC0 1100 
1500 REM *#* MOVE DOWN ##** 

1510 IF Y=1 THEN 1100 


1520 IF Y=Vi THEN GOSUB 1800 :Y=Y-1:V1=WVi 
-1 :V2=V2-1:60T0 1570 

1530 GOSUB 1600 :LET Y=Y-1:G0SUB 1850 :60T 
oO 1100 

1570 GOSUB 1850:G0SUB 1700:G0T0 1100 
1600 REM *** TURN CURSOR OFF *#** 

1610 LET P$=MID#(STRE(M(Y,X)),2) 

1615 IF LEN{P&ISS THEN P$=" "+P8:60T0 16 


1420 LOCATE HEX=-HI FI I 1 „UVC WIH I :PRIMT 


1&30 RETURN 

1850 REM #*** TURN CURSOR ON ##** 

1650 LET P$=MID$(STRECMCY,X)),23 

1665 IF LEN(P$)<S THEN P$=" "+P8:60T0 16 


1870 LOCATE H£{X-H1+19-1 ,VCY-VI+L) PRINT 
CHR$ (24) ;P$; CHR$(24) ; 

1880 GOSUB 1700 :RETURN 

1700 REM *#** PRINT DATA IN SHEET **** 
1710 FOR I=0 TO 7? 

1720 LOCATE 10 ,VC1#1) 

1720 FOR J=0 TO 4 

1735 LET P$=MID$(STR$(MCI+VI ,J+H1)) ,2) 
1740 IF LEN(P$)<S THEN P$=" "+P$:60T0 17 
40 

1745 LOCATE H(J+1)-1,VCI+1) PRINT PS} 
1750 NEXT J,1 

1780 GOSUB 1650:REM TURN CURSOR ON 

1770 RETURN 

1800 REM ***** PRINT COLUMN NOS *#*%** 
1810 LOCATE 1,3:PRINT "ROW “, 

1820 LOCATE 7,3:FOR I=Hi TO H2:PRINT TAB 
CHEI=-H1+19-3) 15CHRSCB) 5" ." 5 

1830 NEXT I 

1840 RETURN 

1850 REM ***%** PRINT ROW LETTERS ##*%* 
1860 LOCATE 1,4 

1870 FOR I=V1 TO v2 

1875 PRINT 

1880 PRINT " ";CHRECI+64) 5" ." 

1890 NEXT I 

1895 RETURN 

1700 REM #**** FORMULA OF CURRENT CELL * 
*%* 

1920 LET D$=F$((Y-1)%*15+X) 

1930 LOCATE 1,22 

1940 PRINT "FORMULA: 


1950 PRINT ' 


FORMULA: " ;D$ 
1980 LOCATE 1,1 
1970 RETURN 


Routinen zum Feldaufbau 


3000 REM KuHHHc HENRI HH ERERRE 
3001 REM #* SETUP ARRAYS & VARAIBLES * 
3002 REM KHHHHun EHRT IT HEHE NR 
3010 DIM H(5) ,V(8) ,‚ST(20) ,ST#(20) ,E$(20) 
‚6$(20),C(20) 

3020 FOR C= 0 TO 4 

3030 HiC+1d=6*C+t11:REM CALC XPOS 

3040 NEXT C 

3050 FOR C=1 TO 8 

3050 LET ViC)=2#C+3:REM CALC YPOS 

3070 NEXT C 

3075 LET X=1:Y=1 

3080 LET Hi=X:H2=X+4 :W1=Y ıV2=Y+7 

300 REM KUH HERR HR ERK 
3071 REM * VALUE ARRAY * 
3092 REM KAHHuH HR REERERRRRRRERRRRURERR 
3100 DIM M£15,153 :DIM N£15,1% 

3110 FOR I=1 TO 15 

3120 FOR J=1 TQ.15 

3130 LET M(1,J)=1*J 

3140 NEXT J,I 

3150 REM = FORMULA ARRAY * 
3152 REM KaruucRHEE EEE HERR EFEE 
31&0 DIM F&( 255) 

3170 LET F$tl)="Al+Bi+li" 

3180 LET F$(31 )="C1+C2+C3" 

3170 LET F$t1&)="B1+B2+B3" 

3200 RETURN 


Programmier-Service 


Alles in Ordnung! 


Ist Ihr Adreßbuch ein einziges 
Chaos? Sind die Clubkarten 
durcheinander geraten, oder 
macht Ihre Cassettenkartei mehr 
Ärger, als sie nützt? Unser Pro- 
gramm schafft Ordnung. 


U: was kann man damit anfan- 
gen?" ist eine Frage, die man oft 
von Leuten ohne Computer hört. 
Manch einer kennt dann keine be- 
friedigende Antwort. Hier ist ein Pro- 
gramm, das den Computer etwas 
Sinnvolles tun läßt. Es dreht sich um 
eine Computerdatei, wie sie im täg- 
lichen Leben Verwendung finden 
kann. Etwa wenn man die Adressen 
von Freunden oder die der Mitglie- 
der eines Clubs speichern, die Ge- 
burtstage von Verwandten und Be- 
kannten nicht ewig vergessen, seine 
Münzen-, Schallplatten- oder Re- 
zeptsammlung katalogisieren oder 
den Überblick über seine ständig 
wachsende Computerspielsamm- 
lung behalten will. Die einzige Ein- 
schränkung für die Dateien liegt in 
der Speichergröße des Rechners. 
Deshalb sollten Sie Ihre Einträge 
möglichst kurz und bündig halten. 


Die Datei eröffnen 


Nachdem Sie das Programm einge- 
geben und gestartet haben, er- 
scheint auf dem Bildschirm das 
Hauptmenü. Es repräsentiert eine 
Auswahl der Möglichkeiten, die das 
Programm bietet. Sie können etwa 
Daten abfragen oder Daten suchen. 
Aber zuerst müssen Sie eine Datei 
eröffnen. 

Um eine Datei zu eröffnen, muß 
der Rechner wissen, wieviele Daten- 
sätze Sie benötigen und wie lang sie 
sein sollen. „Datei eröffnen“ ist Mög- 
lichkeit (Option) 1 des Hauptmenüs. 
Um sie auszuwählen, müssen Sie 
die l drücken. Dann fragt der Rech- 
ner: „Bist du dir sicher?“ Das ist ein 
Schutz gegen unbeabsichtigtes 
Drücken der Taste 1, weil beim Er- 
öffnen der Datei alle gespeicherten 


-fragt der Rechner nach der Anzah 


Daten gelöscht werden. Wer sich 
sehr wohl „sicher ist“, drückt ] für ja; 
wenn nicht, irgendeine andere Ta- 
ste. Sie kommen dann automatisch 
ins Hauptmenü zurück. 

Nachdem man j gedrückt hat, 


der benötigten Felder. Felder sind 
die Einzelinformationen in einem 
Datensatz. Eisenbahnfans gebrau- 
chen wahrscheinlich vier Felder: Lo- 
komotivklasse, Nummer, wann und 
wo gesehen. Ein Datensatz darf 
nicht mehr als acht Felder enthalten, 


weil nur acht gleichzeitig auf den 
Bildschirm passen. Nachdem Sie die 
Anzahl der Felder festgelegt haben, 
ist die nächste Frage: „Name Feld 
1?“ Im Beispiel oben wäre die Ant- 
wort: „Klasse“. Dann werden Sie 
nach der Länge des ersten Feldes 
gefragt. Das ist die Anzahl der Zei- 
chen, die dort stehen sollen. Die ma- 
ximale Länge eines Feldes darf 19 
Zeichen betragen (54 auf dem 
Schneider). Falls Ihre Information 
länger ist, müssen Sie sie in mehrere 
Felder aufteilen. Nachdem der 
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Rechner die Informationen für das 
erste Feld erhalten hat, verlangt er 
sie noch für das zweite, dritte und so 
weiter. Ihre Datei kann also um so 
mehr Datensätze speichern, je kür- 
zer Name und Zeichenzahl eines 
Feldes sind. Nachdem diese Übung 
vollzogen ist, rechnet der Computer 
sofort aus, für wieviele Datensätze er 
Platz hat. Der Spectrum fragt zusätz- 
lich, wieviele dieser Datensätze Sie 
wirklich benötigen. Falls Sie mit we- 
niger auskommen, als Platz vorhan- 
den ist, würde der Spectrum sonst 
viel Zeit mit dem Abspeichern des 
leeren Speicherplatzes vergeuden. 

Nach dem Eröffnen der Datei be- 
findet man sich automatisch wieder 
im Hauptmenü. Dort wählt man Op- 
tion 2, um mit der Eingabe der Daten 
zu beginnen. 


Datensatz verschieben 


In der obersten Bildschirmzeile steht 
stets die Meldung, die die Anzahl 
der möglichen und der schon einge- 
gebenen Datensätze angibt. Dort 
steht beispielsweise: „DU HAST 10 
VON 100 DATENSATZEN BELEGT”. Di- 
rekt darunter prangen die Namen 
der Felder. Der Cursor steht ganz 
unten. Hier geben Sie auch Ihre Da- 
ten ein. Denken Sie daran, die Maxi- 
mallänge nicht zu überschreiten. 

Nachdem Sie die RETURN- oder 
ENTER-Taste gedrückt haben, wird 
der eingegebene Datensatz nach 
oben verschoben. Die Eingabezeile 
wird gelöscht, und Sie können wei- 
tere Daten eintippen. Jedesmal, 
wenn ein Datensatz eingegeben ist, 
wird er gespeichert. Der Computer 
geht dann sofort zum nächsten lee- 
ren Datensatz über. Wenn Sie die 
RETURN- oder ENTER-Taste drük- 
ken, bevor Sie einen weiteren Da- 
tensatz eingegeben haben, bringt 
Sie der Computer ins Hauptmenü. 

Damit Sie sich die Daten wieder 
ansehen können, müssen Sie Option 
3 des Hauptmenüs wählen. Auf dem 
Bildschirm erscheint dann der erste 
Datensatz. Das ist nicht unbedingt 
der erste, den Sie eingegeben ha- 
ben, sondern der erste, den der 
Rechner an diese Stelle alphabe- 
tisch korrekt sortiert hat. 

Die Methoden zum alphabeti- 
schen Sortieren variieren zwar et- 
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was, normalerweise werden die Da- 
ten aber nach dem ersten Feld sor- 
tiert. Der Rechner sieht sich jeweils 
den ersten Eintrag im ersten Feld an 
und sortiert die Datensätze alphabe- 
tisch. Falls in zwei Datensätzen der 


erste Buchstabe übereinstimmt, 
sieht sich der Computer den zweiten 
an, dann den dritten und so weiter. 
Das erste Problem entsteht, wenn 
Zahlen im ersten Feld stehen. Der 
Rechner sortiert eine Zahl vor einen 
Buchstaben. Ansonsten benutzt er 
dieselbe Sortiermethode wie für 
Buchstaben. Er betrachtet also nicht 
die ganze Zahl, sondern sortiert 
nach den einzelnen Ziffern. Falls 
also im ersten Feld Ihrer Datensätze 
die Zahlen von 1 bis 100 stehen, wird 
der Computer folgende Reihenfolge 


auswählen: ], 10, 11, 12, 13, 14, 15, 16, 
17, 18, 19, 100 und dann 2, 20, 21 usw. 

Eine Möglichkeit, dieses Problem 
elegant zu lösen, ist, entweder keine 
Zahlen im ersten Feld zu benutzen 
oder die Zahlen so einzugeben: O0, 
002, 003... 100. 

Ein zweites Problem entsteht, 
wenn Sie Groß- und Kleinschrift ver- 
mischen, weil der Rechner große vor 
kleinen Buchstaben auswählt. Also 
kommt ABC GmbH vor Aaron & Co. 
Wenn möglich, sollten Sie nur Groß-. 
buchstaben benutzen. 

Wenn Sie sich die Daten ansehen, 
erscheint am Bildschirmrand: 


V(ORWÄRTS) ZURÜCK) M(ENÜ) 


Wenn Sie die V-Taste drücken, er- 


ea # 
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scheint der nächste Datensatz. 
Wenn man V mehrfach drückt, sieht 
man die gesamte Datei. 

Drücken Sie die Z-Taste, erscheint 
der Datensatz vor dem jetzt auf dem 
Schirm abgebildeten. Man kann also 
mit der V- und Z-Taste nach Belie- 
ben vor- und rückwärts durch die 
ganze Datei laufen. Mit der M-Taste 
gelangt man sofort ins Hauptmenü. 

„Daten finden“ ist Option 4 des 
Hauptmenüs. Mit ihr können Sie 
sämtliche Datensätze durchsuchen. 

Wenn Sie Taste 4 betätigen, fragt 
der Rechner, in welchem Feld er su- 
chen soll. Sie müssen dessen Num- 
mer angeben: | für das erste, 2 für 
das zweite usw., von oben gezählt. 
Nun sollten Sie eingeben, wonach in 
diesem Feld geforscht werden soll; 
beispielsweise „JOJO" oder „WURST- 
HAUSEN“ oder „SCHEIBENKLEI- 
STERWEG"“,. Nach der Eingabe drük- 
ken Sie RETURN oder ENTER. 

Das Wort muß genau mit dem im 
Feld gespeicherten übereinstim- 
men. Falls es im Feld in Großbuch- 
staben steht, werden Sie es nicht fin- 
den, wenn Sie nach Kleinbuchsta- 
ben suchen. Auch der Wortabstand 
muß exakt stimmen. Falls Sie verse- 
hentlich die Leertaste vor oder nach 
dem Eintrag gedrückt haben, wird 
der Computer vermutlich nichts Ge- 
scheites finden. Dieser Fehler tritt 
sogar dann auf, wenn beide Wörter 
auf dem Schirm gleich aussehen. 

Verwenden Sie deshalb möglichst 
sowohl bei der Eingabe als auch 
beim Suchen nur Großbuchstaben, 
und vermeiden Sie Leerzeichen. 


Alphabetisch gelistet 


Wenn der Computer die gesuchten 
Daten nicht findet, teilt er es mit und 
kehrt ins Hauptmenü zurück. Wenn 
er sie findet, listet er sie alphabe- 
tisch auf. Die zweite der beiden An- 
gebotszeilen am unteren Bildschirm- 
rand lautet: 

A(ENDERN) L(OESCHEN) D(RUCKEN) 


Wenn Sie den angezeigten Daten- 
satz ändern möchten, drücken Sie 
die A-Taste. Dann wird nach der 
Nummer des zu ändernden Feldes 
gefragt. Diese Feldnummer wird 
wieder von oben gezählt. 

Dann sollten Sie die „Aenderung 
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eingeben“. Dazu müssen Sie das ge- 
samte Feld neu eingeben, selbst 
wenn nur eine Zahl geändert werden 
soll. Die Korrektur wird mit RETURN 
oder ENTER beendet. Sie können an- 
schließend ein weiteres Feld än- 
dern, indem Sie A drücken. Wollen 
Sie einen Eintrag ändem, der sich 
nicht bei den gerade ausgewählten 
befindet, müssen Sie ins Hauptmenü 
zurückkehren (M), neue Daten su- 
chen (4) und diese dann korrigieren 
(A). Dazu können Sie auch Option 3, 
„Daten ansehen“, benutzen. 

Um einen Eintrag zu löschen, 
müssen Sie ihn mittels Option 3oder 
4 des Hauptmenüs finden. Dann er- 
halten Sie wieder die bekannte An- 
gebotszeille.e Um den Eintrag zu 
löschen, müssen Sie nur noch die 
Taste L drücken. Dann wird gefragt: 
„Bist du sicher?“ Das ist ein guter 
Schutz gegen unbeabsichtigtes 
Löschen wichtiger Daten. 

Wenn Sie aber sicher sind, den 
Eintrag löschen zu wollen, drücken 
Sie die Taste „]“, ansonsten irgend- 
eine andere. Nun wird der Eintrag 
gelöscht, und der (entsprechend der 
im Hauptmenü gewählten Option) 
nächste findet sich auf dem Bild- 
schirm. 

Wenn Sie den Eintrag, der als letz- 
ter gefunden wurde, gelöscht haben, 
bringt Sie der Computer automatisch 
ins Hauptmenü zurück. 

Die letzte Option der beiden An- 
gebotszeilen ist „D(RUCKEN)". Drük- 
ken Sie die D-Taste beim Commo- 
dore oder Schneider, so erhalten Sie 
die Meldung: „Teste Drucker“. Sie 
sollten dann prüfen, ob der Drucker 
eingeschaltet und angeschlossen 
ist. Ist das nicht der Fall, besteht die 
Gefahr, daß das Programm abstürzt. 

Dieser Test ist beim Atari und 


beim Spectrum nicht nötig, weil 


diese nicht reagieren, wenn kein 
Drucker angeschlossen ist. 

Ist die Überprüfung gelaufen, soll- 
ten Sie die Taste W für „weiter“ 
drücken. Wenn Sie eine andere Ta- 
ste nehmen, stehen wieder alle 
sechs Optionen zur Verfügung. 
Drücken Sie aber C, und der Druk- 


ker arbeitet nicht, weil er vielleicht 


doch nicht richtig angeschlossen 


war, müssen Sie das Programm ab- 
brechen: 


beim Commodore mit 
RUN/STOP, beim Schneider mit ESC 


ESC. Um wieder neu zu starten, soll- 
ten Sie GOTO 10 beim Schneider ein- 
geben. Beim Commodore müssen 
sie allerdings GOTO 100 tippen. 

Wenn Sie eine Datei abspeichern 
möchten, drücken Sie die 5. Dann 
werden Sie aufgefordert, der Datei 
einen Namen zu geben. Haben Sie 
das getan und RETURN oder ENTER 
gedrückt, sagt Ihnen der Rechner: 
„DATEI WIRD GESPEICHERT". 

Jetzt werden, außer beim Spec- 
trum, nur die Daten abgespeichert. 
Um das Programm zu speichern, 
müssen Sie Option 7 „PROGRAMM 
BEENDEN" wählen und SAVEn. 


In zwei Stufen laden 


Wenn Sie sich eine Datei wieder an- 
sehen wollen, müssen Sie sie in zwei 
Stufen laden. Zuerst muß das Pro- 
gramm selbst geladen und gestartet 
werden. Dann wählen Sie Option 6 
im Hauptmenü, um die Datei zu la- 
den. Dazu müssen Sie wieder den 
Dateinamen eingeben, unter dem 
Ihre Informationen abgespeichert 
sind. Der Computer antwortet: 
„DRUCKE PLAY UND EINE TASTE“. 
Nun sucht der Rechner auf der 
Cassette die Datei und lädt sie. Er 
bestätigt dann: „„KORREKT GEIA- 
DEN". Findet der Computer die ge- 
suchte Datei nicht, dann listet er alle 
die auf, die er gefunden hat, und 
kehrt danach automatisch ins Haupt- 
menü zurück. Zu diesem Zeitpunkt 
können Sie, wieder mit Option 6, 
eine andere Datei laden oder wei- 
tersuchen. Auf dem Spectrum wer- 
den die Daten und das Programm 
zusammen geladen. Anschließend 
können Sie alle weiteren Dateien mit 
Option 6 des Hauptmenüs laden. 
Der Atari fragt beim Laden oder 
Speichern einer Datei nach „GE- 
RAET:DATEINAME“. An dieser Stelle 
können Sie entscheiden, welches 
Gerät angesprochen werden soll. 
Falls Sie eine Diskettenstation besit- 
zen, geben Sie hier „D: (Filename)“ 
ein, beim Recorder „C: (Filename)“. 
Der Name kann acht Buchstaben 
lang sein und wird mitgespeichert. 
Sie verfügen jetzt über ein sehr 
gutes Dateisystem, mit dem Sie Da- 
teien jeder Art erstellen können. Auf 
einer Cassette lassen sich etliche 
Dateien unterbringen. Aber es ist si- 
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cher sinnvoller, verschiedene Da- 
teien auf verschiedenen Cassetten 
zu eröffnen. 

Im Prinzip arbeiten die „großen“ 
Dateien von Rechenzentren in Be- 
hörden oder Versicherungsgesell- 
schaften wie die hier abgedruckte. 
Allerdings sind in diesen Anlagen 
um einiges größere Mengen an Da- 
ten zu verarbeiten. Aber selbst für 
den Hausbedarf könnte ein Datei- 
programm mal etwas knapp sein. 

Denken Sie darum schon beim 
Einrichten Ihrer Dateien daran, daß 
Sammlungen aller Art die Tendenz 
haben zu wachsen. Um dem Schick- 
sal zu entgehen, sehr bald schon 
größere Datenmengen zu jonglie- 
ren, unterteilt man etwa eine wirk- 
lich große Schallplattensammlung 
von vomherein in sinnvolle Ab- 
schnitte; vielleicht nach den Inter- 
preten, so daß man Schallplatten 
A-K, L-R und S-Z erhält. Dann ist 
auf den Cassetten genügend Raum 
für Nachträge. Und achten Sie von 
Anfang an darauf, prägnante Abkür- 
zungen zu verwenden. Wenn Sie 
Ihre Computerprogramme unter 
Kontrolle bringen wollen, notieren 
Sie etwa den Datenträger als C, D 
oder M statt als Cassette, Disk und 
Modul. So spart man Platz. 

Um mit einer Floppy zu arbeiten, 
müssen sie in den Zeilen 5010 und 
6010 „open 11" in „open 1,8“ ändern! 


1 REM DATEI TEIL EINS 

10 OPEN #5,4,0,°‘K”:POKE 82,1 

20 GOSUB 900 

100 PRINT CHR$(125): PRINT 
L$;‘‘Hauptmenue”: POKE 710,210 


110 PRINT L$;‘1...Datei eroeffnen” 
120 PRINT L$;‘2...Daten eingeben’ 
130 PRINT L$;‘3...Daten abfragen” 
140 PRINT L$;“4...Daten suchen” 
150 PRINT L$;‘‘5...Speichern”” 

160 PRINT L$;“6...Laden” 


170 PRINT L$;‘‘7...Programm beenden’ 

180 PRINT :PRINT ‘“Waehle eine 
Zahl”:S=1:G0SUB 930 

190 GET #5,T:T=T-48: ONT<1ORT>7 
GOTO 190: GOTO T’1000 

900 DIM W$(100),ML$(57): RESTORE 911: 
FOR I=1 TO 57:READ P: 
ML$(l) =CHR$(P):NEXT | 

910 DIM L$(10):1$ = "| 1”: 
L$(10) = 1 1”:L$(2)=1L$: RETURN 

911 DATA 104,104,104,170,104,104,157,66,3, 
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104,157,69,3,104,157,68,3,104,157,73,3, 
104,157,72,3,32,86,228,48,11 

912 DATA 189,72,3,133,212,189,73,3,133,213, 
96,169,0,133,212,133,213,189,67,3,201, 
136,240,232,133,195,96 

920 FOR L=1 TO 2:G0SUB 930: NEXT L 

930 FOR T=15 TO @ STEP — 0.6: SOUND 
0,0 +5*10,10,T: SOUND 1,1 + S’10,10,T: 
NEXT T:RETURN 

949 POSITION 2,20: FOR T=1 TO 4: PRINT 
CHR$(156);:NEXT T: RETURN 

950 PRINT ‘Weiter mit RETURN”;:GET #5, T: 
GOTO 109 

960 POSITION 4,8: PRINT “Eingeben:”’: PRINT 
““Geraet:Dateiname”’: INPUT W$: IF 
LEN(W$) THEN RETURN 

970 POP :GOTO 100 

1000 GRAPHICS 17:POSITION 2,4: PRINT 
#6;‘‘datei eroeffnen”’: POSITION 2,7: 
PRINT #6;“‘BIST DU SICHER?”: POKE 
764,255: S= 24 

1010 T=T+1:0N PEEK(764) < > 255 GOTO 
1020: ON T<2® GOTO 1010: POKE 
708,40°(PEEK(708) =®): T=®: GOTO 
1010 

1020 GET #5,T:GRAPHICS 0: ON T< >74 
GOTO 108: POKE 710,16 

1030 CLR :GOSUB 90®:PRINT : PRINT 
“Anzahl der Felder (1 —8)”’;:TRAP 1030: 
INPUT F: IFF<1 OR F>8 THEN 1030 

1040 DIM N$(F*10),L(F),P(F): 
N$=“[1”:N$(FIO)="1”: 
N$(2)=N$:P=1 

1050 FOR I=1 TO F:PRINT : PRINT ‘Name 
Feld ”;1;: INPUT W$: IF LEN(W$) > 10 
THEN W$(11)= 

1060 N$((1—1)'10+ 1,110) =W$ 

1070 PRINT “Laenge Feld ”;l;: TRAP 
1070:INPUT L:L(l)=L: TRAP 40090: IF 
L<10RL>27 THEN 1070 

1080 P(I)=P:P=P+L:TL=TL+L: NEXT: 
DIM R$(TL) 

1090 SP=INT((FRE(®) — 100)/TL):PRINT: 
PRINT :PRINT “Max. Anzahl 
Datensaetze= ”;SP: DIM DAT$(SP’TL) 

1100 GOTO 950 

2000 IFNOTSPOR LR=SP THEN PRINT: 
PRINT “Keine Datei im Speicher’’:S = 25: 
GOSUB 920:G0TO 100 

2010 PRINT CHR$(125): PRINT “Du 
hast ”;LR;‘“ von ”°;SP; ‘“ Datensaetzen”: 
PRINT “belegt”: RR =" 1”: 
R$(TL) = “1”: R$(2)=R$ 

2020 FOR I=1 TO F: POSITION 2,1 + i*2: 
PRINT N$((1 —1)'10 + ,1710);‘:” 

2030 POSITION 2,18: FOR T=1 TO 4: PRINT 
CHR$(156);:NEXT T: PRINT “Deine 
Eingabe (max. ”;L(l);‘“ Zeichen)”:INPUT 
w$ 

2040 IFI=1 AND W$ =" THEN 100 


2050 IF LEN(W$) >L(l) THEN W$(L(l) + 
= 

2060 POSITION 13,1 +1*2: PRINT W$ 

2070 R$(P(I), P(I) + LEN(W$) —1)=W$: 
NEXT | 

2080 IFLR=® THEN DAT$=R$: GOTO 
2200 

2090 FOR I=LR TO 1 STEP — 1 

2100 IF DAT$((I—1)"TL+1,1"TL)<R$ 
THEN POP: GOTO 2120 

2110 DAT$(I"TL + 1,1"TL+TL)=DAT$ 
((1—1)"TL+1,1°TL):NEXT | 

2120 DAT$(I"TL+1,1"TL+TL)=R$ 

2200 LR=LR-+1:G0TO 2000 

3000 P=1:IF NOT LR THEN PRINT :PRINT 
“‘Keine Daten vorhanden!”:S = 25: GOSUB 
920:G0TO 190 

3010 GOSUB 8500:G0SUB 8519 

3020 GOSUB 940: PRINT ‘“V(orwaerts) 
Z(urueck) M(enue)’”: PRINT “ A(endern) 
L(oeschen) D(rucken)” 

3030 GET #5,T:!F T=77 THEN 100 

3040 IF T=86 THEN 
P=P+1-(P>LR-1): GOTO 3010 

3050 IFT=90 THEN P=P—1+(P=1): 
GOTO 3010 

3060 T=(T=68) + 2°(T=65) + 3°(T= 76): 
ON T GOTO 8540,3200,3100:G0T0 3030 

3100 GOSUB 940:PRINT “Daten loeschen’’;: 
S=25:G0SUB 920:PRINT “ — BIST DU 
SICHER (J/N)”:GET #5,L:IFL< >74 
THEN 39010 

3110 DAT$((P—1)"TL+1) = DAT$(P’TL +1): 
LR=LR-—1 

3120 PRINT CHR$(125):PRINT “Datensatz 
geloescht!”’:GOTO 950 

3200 GOSUB 940:G0SUB 930:PRINT 
“Welches Feld aendern?” 

3210 GET #5,5U:SU =SU —48:1F SU<1 OR 
SU>FTHEN 100 

322® PRINT ““Aenderung (max. ”;L(SU); 
““ Zeichen”’:PRINT 
N$((SU —1)10+1,5U'10);”; 

3230 W$ = “I 1”:W$(100) = W$:W$(2) =W$: 
INPUT W$ 

3240 W$(L(SU) +1) ="":R$(P(SU),P(SU) + 
LEN(W$) —1)=W$ 

3250 DAT$(SU’TL+1,SU’TL+TL)=R$ 

3260 GOTO 3019 

4000 PRINT CHR$(125):POSITION 19,1: 
PRINT “Daten suchen” 

4010 IFLR<2 THEN 3000 

4020 FOR I=1 TO F:POSITION 2,1 +1"2: 


PRINT 15“ — ;N$((1—1)"10+ 1,110): 
NEXT | 

4030 PRINT :PRINT “In welchem Feld willst Du 
suchen ”; 


4040 GET #5,SU:SU=SU —48:1F SU<1 OR 
SU>F THEN 100 
4050 PRINT CHR$(156);‘“Suchwort in 


Feld ”;SU;‘‘ ”;:INPUT W$ 

4060 FORL=1 TO LR:P=(L— 
P(SU) 

4070 IF DAT$(P,P + LEN(W$) —1)=W$ 
THEN P=L:POP :GOTO3010 

4080 NEXT L:GOTO 100 

5000 POKE 710,16: IF NOT LR THEN 3000 

5010 PRINT CHR$(125): PRINT ‘Datei 
sichern”: PRINT 

5020 GOSUB 960 

5030 TRAP 5100:CLOSE #1: OPEN 
#1,8,0,W$:T = 1 

5049 T=T+1:0N W$(T,T)< >” GOTO 
5040: IF LEN(W$) >T THEN 
Ww$=W$(T+1) 


IPTL+ 


5050 PRINT #1;W$: PRINT “Schreibe Datei”; 


CHR$(34);W$;CHR$(34) 

5060 PRINT #1;F:PRINT #1;TL: FOR I=1 
TO F: PRINT #1;L(l): PRINT #1;P()): 
NEXT I: PRINT #1;LR 

5070 PRINT #1;N$: PRINT #1;DAT$: 
CLOSE #1 

5080 TRAP 40000:G0TO 100 
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5100 PRINT :PRINT :GOSUB 920: CLOSE 
#1: PRINT “ERROR — ”; 


PEEK(195);““ beim Speichern ”;W$: GOTO 


950 

6000 POKE 710,16: PRINT CHR$(125): 
PRINT “Datei laden”:PRINT :S=20: 
GOSUB 930 

6010 GOSUB 960:TRAP 610:CLOSE #1: 
OPEN #1,4,0,W$:CLR :GOSUB 900 

6020 INPUT #1,WS,F,TL:PRINT :PRINT 
“Lade ”;W$: POKE 710,210 

6030 DIM L(F),P(F),N$(F'10),R$(TL) 

6040 SP =INT((FRE(®) — 100)/TL): DIM 
DAT$(SP’TL) 


6050 FOR I=1 TO F: INPUT #1,L,P:L(l) = 


L:P(I) = P:NEXT | 


6060 INPUT #1,LR: PRINT LR;‘ von ”;SP; 


““Datensaetzen belegt’ 


6070 INPUT #1,N$: L= USR(ADR(ML$),16 


7,ADR(DAT$),SP'TL) 

6080 IF NOT LTHEN 6100 

6090 DAT$(L+1) — 
GOTO 100 


5-9: GOSUB 930: 


6100 POSITION 2,20: PRINT “ERROR — ” 
PEEK(195);‘“ beim Laden ”;W$:5 = 25: 
GOSUB 920:G0T0 950 

7000 PRINT CHR$(125): POKE 710,16 
PRINT ““ M(enue) / B(ASIC)?”;: 

GET #5,T: IFT< >66 THEN 100 

7010 POKE 82,2:GRAPHICS ®:END 

8500 R$ =DAT$((P—1)"TL+1,P*TL): 
RETURN 

8510 PRINT CHR$(125): PRINT 
# D;‘Dateisatz Nummer ”’;P 

8520 PRINT #D: FOR I=1 TO F 

8530 PRINT #D;N$((1—1)'10+1,1"10);:; 
R$(P(I),P(I)-+ L(I) —1):NEXT I:RETURN 

8540 TRAP 8560:CLOSE #4:0PEN #4,8,0, 
“P’D=4 

8550 GOSUB 8510:D =0:G0TO 3010 

8560 TRAP 40000:G0SUB 920: GOTO 3020 

8700 GOSUB 920:G60T0 3030 


5 print chr$(14) + chr$(8): poke 53280,6: poke 
53281,6: poke 808,234 
10 gosub 20: goto 200 
19 rem****** stringbelegung 
20 cd$ =chr$(17): ch$ = chr$(19): 
cr$ = chr$(29): cu$ = chr$(145): 
cl$ = chr$(157) 
30 cs$ = chr$(147): de$ = chr$(2®): 
m$=chr$(18): rf$ = chr$(146): 
rt$ = chr$(13) 
40 we$ = chr$(5): ro$ = chr$ (150): 
gr$ = chr$(30): hb$ = chr$(154): rem'**** 


LELEITEITeE 


69 fr = 10 +" III” Hm + 
[bist du sicher PL" +rf$ 
70 dim m$(7): for i=1 to 7: read m$(i): next i 

80 data ‘“Dateil_leroeffnen’”’, ‘Daten 


eingeben! _]”°, ‘“Daten|_lansehen|_||_|” 
99 data “Daten! Isuchen”, 

“Speichern I [II 1”, 

Laden II IIDILILILI”, 


“Programm | beenden” 
100 dim rv$(2): rv$(P) =m$: v$ (2) = 1f$ 
110 fl=®: di$ = chr$(20): qu$ = chr$(34) 
120 return 
199 rem****** hauptmenue 
200 print cs$ + Er + gr$ +ul$ 
210 print “II *I OOo oo 
ale n iu a a a a 


LESE TIT IE 


220 print = Ba a I a a a a u 1 a a 
III gITErI" 
230 print “U] 


| 
[IT] =] A] 7] | +» 


ÜJD* *J* 
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259 print “I* JEWelmJjz 
"onn'n"n' ulalıı 

269 print rt$ + ul$ + rt$ + we$ 

270 print n$ +cr$ + “1” +m$(1);: if fl=® 
then 350 

289 print ,“4TI”+m$(4) +rt$+rt$ +cr$ + 
m$+ “2” +m$(2); 

299 print “51” +m$(5) Hrt$+rt$ + cr$ + 
m$+ “3” +m$(3); 

359 print ‚611 +m$(6) + rt$ 

369 print tab(10) n$ + “71” +m$(7)+ 
ts+HntsHrt$H+gr$:c=P: j=1 

370 rem***** eingabewarteschleife 

389 print tab(10) cu$ + rv$(1+j)+ 

. .“TQWaehle eine Zahl[_1” 

399 get a$:i=i-+1: fi>15 then i=9:j= —| 

400 it a$=““" then 380 

410 a=val(a$): fa</ 1ora > 7 then gosub 
120090: goto 380 

420 if a= 7 then 480 

430 if fI=® then 460 

440 if a=1 or a=6 then 480 

445 f a>2 and a< 6 and be=® then gosub 
12000: goto 380 

450 goto 470 

460 if a>1 and a<6 then gosub 1200®: goto 
380 

470 on a goto 1000,2000,3000,4000,5009, 
6009,7000 

480 print cu$ +fr$ 

490 get a$: if a$=‘“” then 490 

509 if a$= “j” or a$ = ““J” then 470 

510 goto 209 

999 rem****** (1) datei eroeffnen ***** 

1000 cIr: gosub 2®: print cs$ +cd$ + 
“Anzahl der Felder (1 —8) ?[_1”; 

1019 b$ = “12345678”: gosub 1301®: fe=i: 
print str$ (fe) + rt$ 

1015 dim fe$(fe), fl(fe) 

1020 for j=1 to fe 


1170 za$ = left$(““12345678” fe) (z(k),0) then 2140 


2170 


1030 print “1 [Name Feld‘“j” [1:?[1”; 1180 goto 2000 
1040 x= 20: I=16: gosub 1100 1999 rem'***** (2) daten eingeben ***** 
1050 if len(b$) =® then gosub 12000: goto 2000 for j=be to da 

1049 2019 print cs$ +rn$ + we$ + “ Von”’da‘ JM 
1069 fe$(j) = “1” +we$+rn$+b$ + Datensaetzen sind‘ belegt!” 

“> +rf$ 2020 for k=1 to fe 
1070 print rt$+cu$ + “I [_]Laenge Feld 2030 x=P®: y=21: gosub 10009®: print 

”+b$+ “11:21”; gosub 14000 er$ + we$ +rn$ + “Datensatz 

1080 x=35: |=2: gosub 11000: if b<1 or Nummer: ”’j+ 1 

b>19 then gosub 1200®: goto 1080 2049 print rt$ + fe$(k);: gosub 14000 
1099 fl(j)=b: z=z+b: print rt$ 2050 x=29- I=fl(k): gosub 11000: if 
1100 next b$=‘““*" and k=1 then 2130 
1110 a=fre(x) — 65536* (fre(x) <®) 2069 da$(j,k—1)=b$ 
1120 da=int(a/(z+5 + 3’fe)) 2070 x=1:y=3+ (k—1)"2: gosub 10000: 
1130 print ‘“ Max. Anzahl Datensaetze = "da print fe$(k); 
1140 for i=1 to 10@®: next 2080 x=2®: gosub 1000: print b$ 
1150 dim da$(da,fe— 1), z(da) 2099 next k: if j=® then z(j) =®: g0t02120 
1160 fl=1: be=® 2100 fork=® to j—1: if da$(j,0)> <da$ 


2110 next k: z(j)=j 

2120 next j 

2130 be=j: goto 200 

2139 rem’**** einfuegen 

2140 fori=jtok+1 step —1: z(i) =z(i— 1): 
next 

2150 z(k) =j: goto 2120 

2999 rem’***** (3) daten ansehen ****** 

3000 |j=® 

3010 if c>® then if da$(z(j),.—1)<>c$ 
then 3110 

3015 print cs$ + we$+rn$ + “ L|Datensatz 
Nummer:”’j +1 

3020 for k=1 to fe 

3030 print rt$ + we$ + str$(k) + fe$(k); 

3040 x=2®: y=peek(214): gosub 1000: 
print hb$ + da$(z(j),k— 1) 

3050 next k 

3060 x=®: y=19: gosub 10000 


3079 print gr$ + n$ + “BEER (orwaerts) 
BI A(endern) BEBEEM(enue) ” 

3080 print t$+n$+ "BIBI BI 
Z(urueck) BE BAL(oeschen) BI BI 
D(rucken)” 

3090 b$ = ““vzalmd”’: gosub 13010 

310® on i goto 3110,3200,3300,3400,200, 
3600 

3109 rem***** v(orwaerts) 

3110 j=j+1: if j> =be then 3130 

3120 goto 3010 

3130 if c=® then 3000 

3140 print we$ + rt$ +“ ILIL 111" keine 
weiteren Daten '**""" 

3150 for i=® to 150®: next: goto 200 

3199 rem***** z(urueck) 

3200 j=j—1: if |<® then j=be— 1 

321® goto 3010 

3299 rem***** a(endern) 

3300 if fe=1 then k=1: print rt$: goto 3330 

3310 print rt$ + we$ + “| |Bitte Feldnr. 


eingeben: | |” 

3320 b$ =za$: gosub 13010: k=i 

3330 print cu$+ “| 111” +fe$(k);: gosub 
14000 


3340 x= 20: I=fl(k): gosub 11000 

3350 da$(z(j),k—1)=b$ 

3360 goto 3010 

3399 rem''''" I(oeschen) 

3490 print rt$ + fr$ 

3410 get a$: if a$=*"" then 3410 

3420 if a < > j” and a$< >)” then 
3019 

3430 be=be — 1: if be=® then 200 

3449 for i=® to fe—1: da$(z(j),i) =da$ 

(be,i): next 

3450 if j=be and z(j) =be then 3010 


3460 for i=® to be: if z(i) =be then z(i) =z(j): 


goto 3480 

3470 next i 

3480 for i=j to be: z(i) =z(i) + 1: next 

3490 goto 3010 

3599 rem’‘*** d(rucken) 

3600 print t$ + we$ + “IL I" +m$+ 
0 Drucker fertig (j/n) 2?" +rf$ 

3610 gosub 13090: if i=2 then 3010 

3620 open 4,4,7: print #4, ‘“ [Datensatz 
Nummer: j+ 1 

3630 for i=1 to fe 

3649 print #4, fe$(i) spc(20 — fl(i)) 
da$(z(),i— 1) 

3650 next i: print #4, ul$ + rt$: close 4: goto 
3010 

3999 rem****** (4) daten suchen ******* 

4900 print cs$ + we$ 

4910 if fe=1 then c=1: goto 4050 

4020 for i=1 to fe: print t$ +" 1” + 
str$(i) + cr$ + fe$(i): next 

4930 print gg + rt$ + rt$ + “1 
Feld soll ich suchen 1? 11°" [ 1” 


Welches 


jrammier-Service 


4040 b$ =2za$: gosub 13010: c=i 

4959 print t$ + “LI” +fe$(c); 

4060 x = 20: I=fl(c): gosub 11000 

4070 c$=b$: goto 3000 

4999 rem****** (5) speichern ********** 

5000 gosub 5500: open 1,1,1,b$: print 
rt$ + “LI ]Ich speichere!_1!1!” 

5919 print #1, fe;rt$;da;rt$;be;rt$ 

5020 for i=1 to fe: print #1, qu$+fe$(i) + 
qu$ + rt$;fl(i)zrt$;: next i 

5030 for j=® to be— 1: fori=P to fe— 1: 
print #1, da$(z(j),i): next i,j 

5040 close 1: goto 200 

5499 rem’**** dateinamen eingeben 

5590 print cs$ +we$ + rt$ + rt$ + 
“EI” +m$+ “| |Bitte gib den 
Dateinamen ein! |” +rt$-+hb$ 

5510 x= 10: I=16: gosub 11000 

5520 if b$ =" then gosub 12000: goto 5500 

5540 print we$ + rt$+rt$+ “| |[_|Recorder 
fuer Aufnahme vorbereiten,” 

5559 print rt$+““[_]I_lund dann "RETURN’ 
druecken.”” 

5569 get a$: if a8 < >1rt$ then 5560 

5570 return 

5999 rem’***** (6) laden ********""""*" 

6000 cr: gosub 20: gosub 5500 

6019 open 1,1,0,b$: print rt$+““! |! Ich lade 
111? 

6029 input #1, fe, da, be 

6030 dim fe$(fe), fl(fe), da$(da,fe — 1), z(da) 

6040 for i=1 to fe: input #1, fe$(i), fl(i): next 
j 

6059 for i=® to be — 1 

6069 for j=® to fe — 1 

6070 input #1, da$(i,j): next j: z(i) =: next i: 
closei 

6089 fI=1:za$ = left$(‘12345678” ‚fe): 
goto 200 

6999 rem’*’*** (7) prg. beenden *'*'*"* 

7000 print cs$: end 

9999 rem****** cursor setzen 

10000 print ch$; 

10010 it x>® then for i=1 to x: print  r$;: 
next 

100290 if y>® then for i=1 to y: print cd$;: 
next 

10039 return 

10999 rem’***** stringeingabe 

11000 y=peek(214): gosub 10009: gosub 
14000 

11010 pd= 1024 +40’y-+x: pl =pP: 
i=128: b$ =" 

11020 poke p1,(peek(p1) and 127) or (i and 
128) 

11030 i=(i+ 12) and 255: get a$: if a$ =" 
then 11020 

11040 if a$=di$ then 11090 

11050 if a$=trt$ then poke p1,peek(p1)and 
127: b=val(b$): return 


rer 


wre 


11060 if asc(a$)and127 <32 or a8 =cm$ 
then 1120 

11079 if pl > =p®+1 then 11120 

11080 poke p1,peek(p1)and127: pl =p1 +1: 
print a$;: b$=b$ + a$: goto 11020 

11099 if pl =p® then 11120 

11100 poke p1,peek(p1)and127: pl =p1 —1: 
print dI$; 

11110 b$ = left$(b$,len(b$) — 1): goto 11020 

11120 gosub 12000: goto 11020 

11999 rem****** brummton bei fehler *** 

12000 poke 54277,32: poke 54278,255: poke 
54296,15 

12010 poke 54273,6: poke 54276,33: for i=® 
to 100: next 

12020 poke 54276,®: poke 54296,0: return 

12999 rem’****" eingabe abfrage ****""" 

13000 b$ = “in” 

13010 get a$: if a$ =" then 13010 

13020 for i=1 to len(b$): if aß = mid$(b$,i,1) 
then return 

13030 next i: gosub 12000: goto 13010 

13999 rem****** zeilenrest loeschen *'" 

14000 a=39 — peek(211) 

14010 for i=1 to a: print “| 1’’;: next 

14020 for i=1 to a: print cl$;: next 

14030 return 


Um mit einer Floppy zu arbeiten, müßt ihr in 
den Zeilen 5@%@ und 691% „open 1,1" in 
„open 1,8“ ändern! 


10 INK 0,9: INK 1,24: PEN 1: BORDER 9: 
MODE 2 

15 ON ERROR GOTO 10000 

20 n%=1 

30 WINDOW # 1,2,40,2,2: WINDOW 
#2,42,19,2,2 

40 WINDOW #3,1,80,4,23: WINDOW 
#4,1,80,25,25 

50 PRINT CHR$(150);STRING$(78, 
CHR$(154));CHR$(156); 

60 PRINT CHR$(149);TAB(41);CHR$(149); 
TAB(80);CHR$(149); 

70 PRINT CHR$(147);STRING$(78, 
CHR$(154)); CHR$(153); 

80 LOCATE 1,24: PRINT STRING$(80, 
CHR$(154)); 

90 CLS #1: PRINT #1,TAB(10); 
“HDADUDPOTO — 
UJIMLJIELINLJULIE” 

100 CLS #3: LOCATE #3,30,4 

110 PRINT #3,“1 11: 1DATEI EROEFFNEN’: 
PRINT #3 

120 PRINT #3,TAB(30);“2[1:[1DATEN 
EINGEBEN”: PRINT #3 


130 PRINT #3,TAB(30);““311:[ DATEN 
ABFRAGEN”: PRINT #3 
140 PRINT #3,TAB(30);““41_1:1IDATEN 


2lzl 


SUCHEN”: PRINT #3 


150 PRINT #3,TAB(30);““5 [1:1 DATEI 
ABSPEICHERN”: PRINT #3 
160 PRINT #3,TAB(30);“6L1:[1DATEI 


LADEN’: PRINT #3 

170 PRINT #3,TAB(30);“7 
PROGRAMM BEENDEN”: PRINT #3 

180 CLS #4: PRINT #4,‘Deine Wahl ?” 

190 a$ = INKEY$: IF a$ =“ THEN 190 ELSE 
a=VAL(a$) 

200 IFa<1 ORa>7THEN 190° 

210 IF ms%=® AND (a>1 AND a<6) THEN 
190 

220 IFa<>7THEN 250 

230 CLS #4: PRINT #4,‘Bist Du sicher ? 
(i/n)” 

240 a$ = INKEY$: IF a$ =“ THEN 240 ELSE 
IF LOWER$(a$) = ““j” THEN CLS: END: 
ELSE GOTO 90 

250 ON a GOSUB 1090,2000,2200,4000, 
5000,6000 

260 SOUND 1,100,30,13: GOTO 90 

1000 CLS #4: PRINT #4,“ Bist Du sicher ? 
(/n) ” 

1010 a$=INKEY$: IF a$=""" THEN 1010 
ELSE IF LOWER$(a$) < > ““j” THEN 90 

1020 IF ms%>® THEN ERASE anti 
%=P®: n%=1 

1030 CLS #3: CLS #1: CLS #2: PRINT 
#1,TAB(7);“DIIAUITIIELI IT 
DEMRDODEUIFOFONDEDN? 

1040 CLS #4: PRINT #4,‘“Wieviele Felder 
soll ein Datensatz haben ? (max. 8 Felder)” 

1050 a$ = INKEY$: IF a$ =“ THEN 1050 
ELSE a=VAL(a$) 

1060 IFa<1 OR a>8 THEN 1050 ELSE 

a%=a 

1070 LOCATE #3,20,4 

1080 FOR n=1 „o a%: PRINT #4,‘‘Name 
von Feld’’;n;“: 1 1”;:x=15: y=4: GOSUB 
6490 

1090 n$(n) =s$ 

1100 PRINT #3,TAB(20);n;CHR$(8); 
“Feld :[.1”;n$(n): PRINT #3 

1110 CLS #4: PRINT #4,‘“Laenge von 
Feld”’;n;“:[1°;:x=2: y=4: GOSUB 6400 

1120 IF s$=‘“" THEN 1110 ELSE 
a(n) =VAL(s$) 

1130 IF a(n)>54 OR a(n) <2 THEN 1110 

1140 1% =1r% + a(n): PRINT #4: NEXT 

1145 IF r% <10 THEN %=10 

1150 ms% = (FRE(“”)/r%) — 
(FRE(“”’)/r%)"0.25 

1160 CLS #4: PRINT #4,‘‘Du kannst bis 
zu” ;ms%‘“Datensaetze benutzen !” 

1170 DIM daten$(ms%,a%) 

1180 CALL &BB18: RETURN 

2000 CLS #1: Er rd PRINT #1, 
TAB(19);‘‘D EOINDI OL] 
ELIIEIN Denk ELIN” 


2112 


2010 CLS #3: CLS #2 

2020 IF n%—2=ms% THEN PRINT #4,“DIE 
DATEI IST VOLL !”;: CALL &BB18: 
RETURN 

2040 PRINT #2,DEC$((n% ####”); 

vonl]”;DEC$((m%, $## #”); 

““[]Datensaetzen verbraucht”; 

2060 PRINT #4,“Mit < ENTER > kehrst Du 
zurueck zum Menue”; 

2070 LOCATE #3,5,4: FORn=1 TO a%: 
PRINT #3,TAB(5);n$(n);TAB(20);“:[1”; 

2080 x=a(n): y=3: GOSUB 6400 

2090 IF s$=*" AND n=1 THEN n=a%: 
q=1: GOTO 2110 

2100 daten$(n%,n) =s$: PRINT #3 

2110 NEXT 

2120 IF q=1 THEN RETURN 

2130 n%=n% + 1 

2140 IFn%=2 THEN 2010 

2150 g=n% - 1 

2169 IF daten$(g,1) > daten$(g— 1,1) THEN 
2010 

2170 FOR n=1 TO 3%: c$=daten$(g,n): 
daten$(g,n) =daten$(g— 1,n): 
daten$(g—1,n)=c$: NEXT 

2180 9=g9-1: IF g=1 THEN 2010 

2190 GOTO 2160 

2200 IF n%=1 THEN RETURN 

3000 CLS#1: PRINT #1,TAB(7); 
“DOAOTODEOND OD 

ADBUFOIRDIADIGLIELIN” 

3010 d%=P: c=1:q=® 

3020 WHILE q< >1 

3030 Ih=d%+c 

3040 IF d%>n%—1 THEN d% = 1 

3050 IF d%<1 THEN d%=n% — 1 


3060 GOSUB 68090 'SCREEN 
3070 GOSUB 7000 ’KEY 
3080 IFn%<2 THEN q=1 
3090 WEND 

3100 RETURN 

4000 CES #1: PRINT #1,TAB(11); 

“"DOAOTOEONDOD 
SOUOICIHTIELIN” 

4010 IF n%=1 THEN RETURN 

4020 CLS #3: LOCATE #3,30,4: FOR j= 1 
TO a%: PRINT #3,TAB(39);j; 
CHR$(8);““.’;n$(j): PRINT #3: NEXT 

4030 d%=1:c=1:q=® 

4040 CLS #4: PRINT #4,‘‘In welchem Feld 
willst Du suchen ?” 

4050 a$ = INKEY$: IF a$ = 
ELSE v= VAL(a$) 

4060 IFV<1 OR v>a% THEN 4050 

4070 CLS #4: PRINT #4,‘‘Suchwort in 
Feld’; 1”; 

4080 x=a(v): y=4: GOSUB 6400: sw$=s$ 

4090 WHILE qa< >1 ANDc<>® 

400 a= —1 

4110 GOSUB 5500 

4120 IF c<>@® THEN GOSUB 6800: GOSUB 
7000 

4125 WEND 

4130 IF q=1 THEN RETURN 

4140 CLS #4: PRINT #4,‘Keinen Datensatz 
gefunden”: CALL &BB18: RETURN 

4500 CLS #4: PRINT #4,“Willst Du diesen 
Datensatz wirklich loeschen ? (j/n)” 

4510 a6 = INKEY$: IF a$=*"" THEN 4510 
ELSE IF LOWER$(a$) < >“ THEN 
RETURN 

4520 IF d%=n%—1 THEN 4560 

4530 FOR i=d% +1 TO n%: FOR j=1 TO a% 

4549 daten$(i— 1,j) = daten$(i,j) 

4550 NEXT j: NEXT i 

4560 n%=n%— 1: d%=d% —c: RETURN 

5000 CLS #1: CLS #3: PRINT #1,TAB(4); 
i. JAUTOEDI AUBLIS 

EOIDICOIHLIELIRUIN” 

ea CLS #4: PRINT #4,‘‘Bitte Dateinamen 
angeben :1 1”;: x=16: y=4: GOSUB 6400 

5020 IF s$ =" THEN 5910 

5030 LOCATE #3,17,10: PRINT #3,“DIIA 


“” THEN 4050 


TOEOIOOOWOIDRODI 
ANBOISDEDS POELIDICOHLIE 
To ® 
5040 WINDOW SWAP 0.4 
5050 OPENOUT s$ 


5060 PRINT #9,ms%,n%,a% 

5070 FOR i=1 TO a%: WRITE #9,n$(i);a(i): 
NEXT 

5080 FOR i=1 TO n%—1: FORj=1 TO a% . 

5090 PRINT #9,daten$(i,j) 

5100 NEXT j: NEXT i 

5110 CLOSEOUT 

5120 WINDOW SWAP 4,0 


5130 RETURN 
500 t=Q 
5505 di =d%+c 
5510 IF d%<1 OR d%>n%—1 THEN 
c= —-ct=t+1:%=d%+c 
5520 IF sw$ = daten$(d%,v) THEN RETURN 
5530 IFt<2 THEN 5505 
5510 c=® 
5550 RETURN 
6000 CLS #1: PRINT #1,TAB(10); 
“DOADTOEOIT 
‚LOADDOIEON?; 
6010 CLS #3: CLS #4: PRINT #4,“ Bitte 


Dateinamen angeben :[1”;:x=16: y=4: 


GOSUB 6400 
6020 LOCATE #3,20,10: PRINT #3, 
“DIIJATDITIIETIELIITI IT] 


WOIORODO DD 
GLEODLODADDIEOND I’ 
6030 IF ms%>® THEN ERASE daten$ 

6040 WINDOW SWAP 9,4 
6050 OPENIN s$ 
6060 INPUT #9,ms%,n%,a% 


6070 FOR i=1 TO a%: INPUT #9,n$(i),ali): 


NEXT 

6080 DIM daten$(ms%,a%) 

6090 FOR i=1 TO n%—1: FOR j=1 TO 3% 

6100 LINE INPUT #9,daten$(i,j) 

6110 NEXT j: NEXT i 

6120 CLOSEIN 

6130 WINDOW SWAP 4,0 

6140 RETURN 

6200 CLS #4: PRINT #4,“ Ist der Drucker 
angeschlossen ? (j\n)” 


6210 a$ = INKEY$: IF a$=“"" THEN 6210 

ELSE IF LOWER$(a$) < > ““j” THEN 
. RETURN 

6220 WIDTH 80 

6230 PRINT #8,CHR$(10);CHR$(13) 

6240 FOR i=1 TO n%—1: FOR j=1 TO a% 

6250 PRINT #8,n$(j);TAB(20);“ :[1”; 
daten$(i,j) 

6260 NEXT j 

6270 PRINT #8,CHR$(10): NEXT i 

6280 RETURN 

6400 PRINT #y,CHR$(143) + CHR$(8); 

6410 s$=""FORt=1TOx+1 

6420 k$ = INKEY$: IF k$ =" THEN 6420 
ELSE k=ASC(k$) 

6430 IF k=127 AND t>1 THEN t=t-—1: 
PRINT #y,CHR$(16) +CHR$(8) + 
CHR$(143) + CHR$(B);: 
s$ = LEFT$(s$,t— 1): GOTO 6420 

6440 IF k=13 THEN t=x +1: PRINT 
#y,CHR$(16);: GOTO 6490 

6450 IFk< >13 AND t=x-+1 THEN 6420 

6460 IFk<32 OR k> 126 THEN 6420 

6470 s$=s$ + CHR$(k) 

6480 PRINT #y,CHR$(k);CHR$(143) + 
CHR$(8); 

6490 NEXT: RETURN 

6600 CLS #4: PRINT #4,‘Welches Feld ?” 

6610 a = INKEY$: IF a$=*"" THEN 6610 
ELSE IF VAL(a$) > a% AND 
VAL(a$) <1 THEN 6610 

6620 r= VAL(a$) 

6630 CLS #4: PRINT #4,“ Aenderung :| 1”°;: 
x=alr): y=4: GOSUB 6400 

6640 IF s$="""" THEN 6630 ELSE 
daten$(d%,r) =s$ 

6650 IFr< >1 THEN RETURN 

6660 IF d%=1 THEN 6710 

6670 IF daten$(d%,1) > daten$(d% — 1,1) 
THEN 6700 

6680 FOR t=1 TO a%: c$ =daten$(d%,t): 
daten$(d%,t) = date$(d% — 1,8): 
daten$(d% — 1,t) = c$: NEXT 

6690 d% = d% — 1: IF d%=1 THEN 6740 
ELSE 6670 

6700 IF d%=n%— 1 THEN 6740 

6710 IF daten$(d%,1) <daten$(d% + 1,1) 
THEN 6740 

6720 FOR t=1 TO 3%: c$ = daten$(d%,t): 
daten$(d%,t) = daten$(d% + 1,1): 
daten$(d% + 1,1) =c$: NEXT 

6730 d% = d% +1: GOTO 6700 

6740 d% = d% — c: RETURN 

6800 CLS #3: CLS #2 

6810 PRINT #2,TAB(10);‘“ Datensatz 
Nummer’’;d% 

6820 LOCATE #3,5,4 

6830 FOR s=1 TO a%: PRINT #3,TAB(5); 
n$(s);TAB(20);“: I 1”;daten$(d%,s): 
PRINT #3 


2173 


6840 NEXT 

6850 PRINT #4,‘“V(orwaerts) 
Z(urueck) [1 [U] [_1]M(enue) 
L(oeschen) A(endern) 
D(rucken)”; 

6860 RETURN 

7000 a$=INKEY$: IF a$=“"" THEN 7000 
ELSE k=ASC(a$) AND &5F 

7010 IFk=86 ORk=13 THEN c=1: 
RETURN 

7020 IF k=77 THEN q=1: RETURN 

7030 IFk=68 THEN GOSUB 6200: RETURN 

7040 IF k=65 THEN GOSUB 660®: RETURN 

7050 IFk=90 THEN c= — 1: RETURN 

7060 IFk=76 THEN GOSUB 4500: RETURN 

7070 GOTO 7000 

10000 IFERR< >17 THEN PRINT ERR;ERL: 
STOP 

10010 CLS #4: PRINT #4, 
““Dateidimensionierung nicht moeglich!” 

10020 ms% =P: 1% =P: n%=1: CALL 
&BB18: GOTO 90 


5LETR=P: LET U=P: LET V=1 

10 BORDER V: PAPER V: INK 7: POKE 
23609, 20: POKE 23658,8 

100 CLS : PRINT INVERSE V;AT V,6;“ HL] 
ADLULIPLITIIMLIELINILIULIE” 

110 PRINT AT 5,6;°°1 :— Datei eroeffnen 
"TAB 6;‘2 :— Daten eingeben” TAB 6; 
“3 :— Daten abfragen’”’TAB 6;‘‘4 :— Daten 
suchen””’TAB 6;‘5 :— Speichern””’TAB 6; 
“6 :— Laden”’TAB 6;“7 :—Programm 
beenden”; # V;TAB 6;°‘— WAEHLE EINE 
ZAHL —” 

500 LET I$=INKEY$: IF I$ =" THEN GOTO 
500 

510 IF I$< “1” OR I1$> “7° THEN GOTO 
500 

520 IFR=U AND I$< > 1” AND I$ <> 
“6” AND I$< > 7” THEN GOTO 500 

530 BEEP .1,10: CLS : GOSUB (CODE 
I$ —48)’1000: GOTO 100 

1000 PRINT AT 7,9;‘“BIST DU SICHER ?”: 
PAUSE U: IF INKEY$= “” THEN 
GOTO 1000 

1010 IF INKEY$< > “J” AND INKEY$ 
<>“j” THEN RETURN 

1020 PRINT INVERSE V;AT 10,6; 
EROEFFNEN I] 

1030 INPUT AT ®,0;‘“Anzahl der Felder 
(1-8)?D1’;A: IFA<1 OR A>8 THEN 
GOTO 1030 

1049 DIM A(A): DIM B(A+V): DIM 
N$(A,10):LET T=U: FORN=VTOA 

1050 INPUT AT 0,0;‘‘Name 


DATEI 


Feld 1 ;(N);“21?DI”; LINE N$(N) 
1060 INPUT AT V,®;‘“Laenge 
FeldL1”;(N);“1?D°;A(N): IF 
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A(N) >5® THEN GOTO 1060 

1070 LET B(N)=T: LETT=T+A(N): NEXT 
N:LET B(N)=T 

1080 PRINT AT 16,2;‘°‘MAX. Anzahl Datenfelder 
= D]”;INT(((PEEK 23730 + 256°PEEK 

23731)-29509)/T) 

1099 INPUT ‘Wieviele brauchst Du ? I”; 

R: DIMA$(R,T): RETURN 

2000 LETC=V 

2010 IF A$(C,V) = “1” THEN GOTO 2100 

2020 IFC=R THEN GOTO 2500 

2030 LET C=C+V: GOTO 2010 

2100 PRINT AT 0,0;‘‘Du hast! 1”;C—V; 
“Jvonl1”;R;‘“ [I] Datensaetzen ”:PRINT 
“Belegt’” 

2118 FORN=\V TO A: PRINT INVERSE 
V;AT V+N’2,U;N$(N); INVERSE Q;AT 
V+N’2,12; FLASH V;‘‘?”: INPUT ‘“(Max. 

»(A(N));““ Zeichen)”, LINE 
A$(C,B(N)+V TO B(N+V)): PRINT AT 
V+2’N,12;A$(C,B(N)+V TO B(N+V)): 
NEXT N 

2120 FOR F=V TO 150: NEXT F: IFC=V 
THEN RETURN 

2130 LETN=C 

2149 IF A$(C)> =A$(C—V) THEN RETURN 

2150 LET X$=A$(C): LET A$(C)=A$ 
(C—V): LET A$(C—V)=X$: LET 
C=C-V: IFC=V THEN RETURN 


2160 GOTO 2149 
2500 CLS : PRINT FLASH 1;AT 10,6;‘“ ID 
AUTOEDI VOODLUILD”: 


FOR F=V TO 409: NEXT F: RETURN 

3000 LET D=V: IF A$(V,V)= “1” THEN 
RETURN 

3010 IFD=UTHEN LETD=V 

3015 IFD-V=RTHEN LETD=D-—V 

3029 IF A$(D,V)=“[1” THEN LETD=D—V 

3030 GOSUB 9500 

3049 IFOP=V THEN LETD=D+V: GOTO 
3010 

3050 IFOP=2 THEN LETD=D--V: GOTO 
3010 

3060 IFOP=3 THEN RETURN 

3070 IFOP=4 THEN GOSUB 8090 

3080 IFOP=5 THEN LET MD=V: GOSUB 
9900:1F D=U THEN RETURN 

3090 GOTO 3030 

4000 FOR N=V TO A: PRINT INVERSE V;AT 
N*2,9:N; INVERSE U; TAB 11;":—O"; 
NS(N): NEXT N 

4910 PRINT "In welchem Feld[] 
(1 bisDI”:A:”) suchen?” 

4020 IF INKEY$ =“ THEN GOTO 4029 
4030 LET Y$=INKEY$: IF CODE Y$ <49 OR 
CODE Y$>48+A THEN GOTO 4030 

4040 BEEP .1,10: LET Z=VAL Y$: PRINT 
‘In FeldlI1”;Z;‘“ DDwelches Suchwort?”: 
DIM Z$(V, A(Z)): INPUT LINE Z$(V) 

4044 CLS: LETK=V 


4045 IF A$(K,B(Z) + V TO B(Z+ V))=Z$(V) 
THEN GOTO 4050 

4046 IFK=R OR A$(K,V)= “1” THEN 
CLS: PRINT AT 9,3;“INICHTS 
MITTI”;Z$(V), TAB 105“IN FELDLI”; 
2; ZU FINDEN” 

4047 LET K=K+V: GOTO 4045 

4050 LET D=V: LET PM=V: LET MO=V 

4060 IF D>R THEN LET D=PM 

4070 IF D=U THEN LET D=PM 

4080 IF A$(D,V)= “1” THEN LET D=PM 

4090 IF A$(D,B(Z) + V TO B(Z+V)) 
< >Z$(V) THEN LET D=D+MO: 
GOTO 4060 

4100 GOSUB 95090 

4110 LETPM=D 

4120 IFOP=V THEN LET MO=V: LET 
D=D+MO: GOTO 4060 

4130 IFOP=2 THEN LET MO= —V: LET 
D=D-+MO: GOTO 4060 

4140 IFOP=3 THEN RETURN 

4150 IF OP=4 THEN GOSUB 8000 

4160 IF OP=5 THEN LET DF=U: LET 


MD=2: GOSUB 9900: IF DF=V OR 


A$(V,V) =“*L1” THEN RETURN 
4170 GOTO 4100 
5000 INPUT “Dateiname? 11”; LINE 


0$:!IFLENQ$<VOR LEN 0$ >10 
THEN GOTO 5000 
5010 SAVE Q$ LINE 10: RETURN 
6000 PRINT AT 8,U;‘‘Welche Datei laden? (Nur 
“ENTER? laedt die erste Datei vom Band)” 
6019 INPUT LINE X$: IFLEN X$ >10 
THEN GOTO 6010 
6020 PRINT AT 13,U;‘“ ‘PLAY’ AM 
RECORDER DRUECKEN”: LOAD X$ 
7000 PRINT AT 10,8;‘“Bist Du sicher?”’:IF 
INKEY$ =“ THEN GOTO 7000 
7010 IF INKEY$< > “J” AND INKEY$ 
>” THEN RETURN 
7020 RANDOMIZE USR U 
8000 INPUT AT U,U;“‘AENDERN Feld Nr. 
(1 bist ;(A);) ? JE IF J>A THEN 
GOTO 8000 
8010 PRINT FLASH V;AT V + 2*J,12;A$ 
(D,B(J) +V TO B(J+V)): INPUT AT 
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U,U;‘“Bitte neues Feld eingeben”, LINE 
A$(D,B(J) + V TO B(J+ V)): PRINT AT 
V+2*J,12;A$(D,B(J) +V TO B(J+V)) 

8020 IFD=R THEN LET J= — V: 
GOTO 8070 

8030 IFD=V THEN LET J=V: GOTO 8060 

8040 IF A$(D)>A$(D+V) THEN LET J=V 

8050 IF A$(D) <A$(D—V) THEN LET 
J=-NV 

8069 IF A$(D+ V,V)=“L1” AND J=V THEN 
GOTO 8500 

8070 IF J=V THEN GOTO 8100 

8080 IF A$(D)> =A$(D—V) THEN GOTO 
8500 

8090 LET X$=A$(D): LET A$(D) = 
A$(D—V): LET A$(D— V)=X$: LET 
D=D--V: GOTO 8020 

8100 IF A$(D) <=A$(D+V) THEN 
GOTO 8500 

8110 LET X$=A$(D): LET A$(D) = 
A$(D+V): LETA$(D+V)=X$: LET 
D=D+V: GOTO 8020 

8500 BEEP .1,10: PRINT AT U,U;“Eintrag 


Nr. [1”;D;“ >: RETURN 
9000 PRINT AT 19,U;“LOESCHEN? BIST 

DU SICHER?”: PAUSE U 
9910 IF INKEYS =" THEN GOTO 9919 
9920 IF INKEY$< > “J” AND INKEY$< > 
“> THEN PRINT AT 19,U;“ 10 


OO0D ”: BEEP 
.1,10: RETURN 
9030 PRINT AT 19,U;‘“LIICH LOESCHE 
] UOD! IOO00D 


9035 LETDD=D 

9040 IF D=R THEN LET DD=DD -\: 
GOTO 9060 

9050 IF AS(D + V,V)< > “1” THEN LET 
A$(D)=A$(D+V): LETD=D+V: 
GOTO 9049 

9060 LET A$(D) =": FOR F=V TO 100: 
NEXT F: PRINT AT 19, U,“ I] 
DOO0D0D00D” 

9070 LET D=DD: IF A$(V,V)= “I 1” THEN 
LET D=U: RETURN 

9072 IF D=U THEN LET D=V 


9075 IF A$(D,V)= “1” THEN LETD=D— V 
9080 IF MD=V THEN RETURN 
9090 LET K=V 


9100 IF A$(K,B(Z) + V TO B(Z+ V))=Z$(V) 
THEN GOTO 9130 

9110 IFK=R OR A$(K,V)= “1” THEN LET 
DF=V: GOTO 4946 

9120 LET K=K+V: GOTO 9100 

9130 LET DD=D: LET PA=V 


9140 IF A$(DD,V)= “I 1” OR DD=U THEN 
LET PA=2: LET DD=D: LET MO= 
MO-—V 


9150.IF A$(DD,B(Z)+V TO B(Z+V))=Z$(V) 
THEN LET D=DD: RETURN 

9160 LET DD=DD+ MO: GOTO 9140 

9500 PRINT AT U,U;‘‘Datei Nummer |_1”;D; 
“[][1”: FORN=V TO A: PRINT 
INVERSE V;AT V + 2°N,U;N$(N); INVERSE 
U;TAB 12;A$(D,B(N) + V TO 
B(N+V)): NEXT N 

9510 PRINT INVERSE V;AT 2,U;‘‘V(orwaerts) 

Z(urueck) [1 [_]M(enue) [| I_|A(endern) 

[1] [JL(oeschen) []D(rucken)” 

9520 IF INKEY$=""” THEN GOTO 9520 

9530 LET V$=INKEY$: IF V$ = ““D” THEN 
COPY :LPRINT : LPRINT : LPRINT : 
GOTO 9520 

9549 LET OP=U: IF V$=‘“V” THEN LET 
OP=V:LETMO=V 

9550 IF V$=“Z” THEN LET OP=2: LET 
MO=—\V 

9560 IF V$=““M” THEN LET OP=3 

9570 IF V$= “A” THEN LET OP=4 

9580 IF V$=“P” THEN LET OP=5 

9590 IFOP=U THEN GOTO 9520 

9600 BEEP .1,10: RETURN 
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ey Peripherie 


Die lange Leitung 


Obwohl sie bereits viele Jahre eine gewichtige Rolle in der 
Telekommunikationsindustrie bekleiden, erreichten die Modems erst 
jetzt ihren großen Vorstoß sowohl im geschäftlichen als auch im 


privaten Bereich. 


M::: sind in den USA das große Ge- 
schäft. In Deutschland und Großbritan- 
nien galten sie lange als Luxusartikel am Com- 
puter. Die Gründe hierfür lassen sich in zwei 
Aussagen zusammenfassen: Zunächst bringen 
die Verbindungsgebühren des Telefonnetzes, 
speziell während der Hauptgeschäftszeit, er- 
hebliche Kosten mit sich. Jemand, der sein Mo- 
dem wöchentlich mehrere Stunden einsetzt, 
staunt oft über die folgende Telefonrechnung, 
die plötzlich einen wundersam angewachse- 
nen Betrag ausweist. 

Der zweite Grund liegt im schleppenden 
Ausbau spezieller Kommunikationsnetze. In 
England beispielsweise reagierte die „British 
Telecom“ zu langsam und führte ihr System nur 
stückchenweise ein. Wegen des fehlenden 
Standards entwickelten sich private Dienste, 
die alle mit verschiedenen Protokollen arbeite- 
ten. Ein weiteres Hindernis für Modemanbieter 
und Benutzer ist die, in Deutschland wie in 
Großbritannien vorgeschriebene, technische 
Abnahme durch die entsprechenden Behör- 


Pace nightingale 


Für den Gebrauch mit 
Acorn B, Commodore 64 
und Schneider CPC 


Übertragungsrate 

Zum Senden und Emp- 
fangen stehen je sieben 
Übertragungsraten von 
75 bis 9800 Baud zur 
Auswahl 


ER ER 
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den, deren langwierige Genehmigungsverfah- 
ren und damit verbundene Kosten die Verbrei- 
tung des Modems bremsten. Technische Neu- 
entwicklungen brauchten zum Teil Jahre, um 
durch diesen Verordnungsberg hindurch end- 
lich den Anwender zu erreichen. 

In den USA sind Ortsgespräche kostenlos 
und fast alle Datenbanken und Kommunika- 
tionssysteme arbeiten nach dem „Hayes-Stan- 
dard“. Der Hayes-Standard ist ein System von 
Protokollen, das von vielen Herstellern anderer 
Modems übernommen wurde. Dieser Standard 
ist weder in Deutschland noch in England be- 
hördlich zugelassen und der Gebrauch eines 
Hayes-Modems somit strafbar. Eigentlich aber 
sollte ein Modem diese und eine Anzahl ande- 
rer Leistungen aufweisen, um dem Anwender 
hierzulande maximale Flexibilität in diesem 
verwirrenden Kommunikations-Dschungel zu 
bieten. Ungeachtet aller Probleme steigen die 
Verkaufszahlen von Modems weiter an. Lassen 
sie uns nun einen Blick auf die Leistungsmerk- 
male einiger angebotener Modems werfen. 


u Nightingale 


Das „Pace Nightingale“ kann, obwohl speziell 
für den Acorn B konzipiert, an jeden Computer 
mit RS232-Schnittstelle angeschlossen werden. 
Wie auch beim Modem- 1000-Paket ist im Lie- 
ferumfang ein EPROM enthalten, das, in einem 
der freien ROM-Sockel des Acorn B eingesetzt, 
die erforderliche Software bereithält. Obgleich 
viele der Modemfunktionen über das menüge- 
steuerte Programm anzuwählen sind, muß die 
Übertragungsrate mittels Schalter an der Vor- 
derseite des Gerätes eingestellt werden. 

Das Programm ermöglicht den Betrieb des 
Computers in Prestel- oder Terminalemula- 
tions-Modus. In beiden Betriebsarten können 
Daten übertragen und im Speicher des Com- 
puters bearbeitet werden. 

Zum Nightingale gehört das umfangreichste 
Handbuch aller hier beschriebenen Modems. 
Angesichts der großen Zahl von zu Lehr- und 
Lernzwecken eingesetzten Acorn-Computer 
produzierte der Hersteller ein Handbuch, das 
genau für diesen Markt zugeschnitten ist. Es 
bietet dem Leser mehr Informationen, als den 
Modems für Heimcomputer beiliegen. 


VTX 5000 


Ungeachtet seiner wechselvollen Geschichte 
ist das VTX 5000, hergstellt von OE Ltd., zu 
dem Standard-Modem für den Spectrum ge- 
worden. Es wurde ursprünglich für Prism ent- 
wickelt, mit dem Ziel, die Anwenderzahlen von 
Micronet zu erhöhen, von dem die Firma große 
Anteile besaß. Auch nach dem Zusammen- 
bruch von Prism Anfang 1985 und der Über- 
nahme des Modems durch Modem House ging 
der Verkauf nicht zurück. 

Auf der Vorderseite des Modems sind eine 
Netzlampe, eine Bereitschaftslampe (die eine 
bestehende Verbindung anzeigt) und der da- 
zugehörende Schalter installiert. Ein anderer 
Schalter dient zur Auswahl einer der drei mög- 
lichen Betriebsarten: Micronet, TX (senden) 
oder RX (Empfangen). An der Rückseite befin- 
det sich eine Telefonsteckdose und ein An- 
schlußkabel mit BT-Stecker, der direkt mit der 
Telefonwandsteckdose verbunden werden 
kann. 

Das VTX 5000 enthält die erforderliche Soft- 
ware in einem ROM. Im Gerät sind zwei Plati- 
nen untergebracht, eine übernimmt die se- 
rielle Übertragung und Decodierung, auf der 
anderen ist die Elektronik zur Verbindung mit 
dem Spectrum aufgebaut, wie der ACIA-Chip 
und das ROM mit dem Betriebssystem. Diese 
Methode der Modemansteuerung konfrontiert 


den Spectrum-Besitzer mit einem Problem: 
Das Modem-ROM blendet das BASIC-ROM 
des Computers aus und belegt dessen Spei- 
cherbereich. Fehler treten bei Betrieb des Mo- 
dems zusammen mit dem Interface 1 auf, etwa 
zum Sichern der empfangenen Daten. Das In- 
terface 1 schaltet ebenfalls das BASIC-ROM 
aus und belegt diesen Speicherplatz, wodurch 
sich die beiden Geräte nicht gemeinsam ein- 
setzen lassen. Die Modem-Software ist menü- 
gesteuert. 


VTX 5000 


Für den Gebrauch mit 
Sinclair Spectrum 


Übertragungsrate 
75/1200 Band 


Modem 1000 


Aus dem gleichen Hause wie das VTX 5000 
kommend, bietet das Modem 1000 viele Vor- 
züge in Verbindung mit dem Spectrum. Doch 
ist das Modem 1000 auch zum Betrieb an ande- 
ren Rechnern gedacht und besitzt kein ROM 
mit rechnerspezifischer Software. 

Die externen Kontrollen sind mit denen des 
VTX 5000 identisch: Eine Bereitschaftsanzeige 
mit Schalter und ein dreistufiger Schalter für 
die Betriebsart. An der Rückseite sind die Te- 
lefonanschlüsse und Daten-Ein/ Ausgänge 
zum Computer untergebracht. Da das Modem 
1000 nicht über den Computer mit Strom ver- 
sorgt wird, sind Netztransformator und Netzka- 
bel in das Gerät eingebaut. 

Die Elektronik zur seriellen Übertragung 
und der ACIA-Chip sind weitgehend identisch 
mit den im VTX 5000 verwendeten Schaltun- 
gen. Zum Betrieb des Modem ist natürlich Soft- 
ware erforderlich. Für den Acorn B gibt es ein 
ROM, das in einen der freien Steckplätze im 
Computer einzusetzen ist. Das darin enthal- 
tene Programm ähnelt der Spectrum-Version. 
Menügesteuert unterstützt es die „Log on“-Pro- 
zedur zum Micronet und das Übertragen von 
Programmen und Nachrichten. 

Aufgrund der internen Struktur des Commo- 
dore 64 ist die zum Betrieb des Modem 1000 


benötigte Schnittstelle komplexer als die des 
VTX 5000. Sie besteht aus einer Platine, die in 
den Modulschacht des C64 eingesteckt wird. 
Darauf befinden sich außer dem Programm, 
das in den Bereich des BASIC-ROMSs einge- 
blendet wird, auch spezielle Anpassungs- 
schaltungen, die den Commodore-Zeichensatz 
in den allgemein gebräuchlichen ASCI-Kom- 
munikations-Standard umwandeln. Ein anderer 
Teil der Schaltungen erzeugt die normalen 
RS232-Signale zum Steuern des Modems. 


Modem 1000 


Für den Gebrauch mit 
allen bekannten Heim- 
computern 


Übertragungsrate 
75/1200 Baud 
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KDS Communicator 
104 


Für den Gebrauch mit 
Schneider CPC 


Übertragungsraten 
75/1200, 300/300, 1200/ 
75, 1200 Halbduplex 


WS3000 


Communicator 104 


Dieses Modem, hergestellt von KDS Electro- 
nics, wurde speziell für den Betrieb an Schnei- 
der-Computern entwickelt. Wie beim VTX 
5000 ist der Erweiterungsanschluß an der 
Rückseite des Rechners der Adressat des Mo- 
dems, jedoch übernimmt ein externer Trans- 


Für den Gebrauch mit 


jedem Computer mit 
RS232-Schnittstelle 


Übertragungsrate 
75/1200, 300/300, 1200/ 
1200 Halb- oder Volldu- 
plex 
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formator die Stromversorgung. Wie die übri- 
gen hier vorgestellten Modems wird auch die: 
ses zwischen Wanddose und Telefon geschal- 
tet. Um die Verbindung zum Computer am an- 
deren Ende der Leitung herzustellen, wählt 
man am Telefon die entsprechende Nummer 
und schaltet dann das Modem ein. 

Der Communicator unterscheidet sich von 
den anderen Modems durch zwei Digitalanzei- 
gen an der Vorderseite, die zusätzliche Infor- 
mationen präsentiert, etwa die gerade ge- 
wählte Telefonnummer, oder ob der Computer 
gerade auf das Modem-ROM zugreift. Die 
menügesteuerten Programme sind mit sehr 
vielen Optionen ausgestattet und in einem 
ROM ım Modem gespeichert. Aus dem Modus- 
menü wählt man die Betriebsart — zum Bei- 
spiel Prestel oder Bulletin Board — wonach sich 
das Modem automatisch auf die richtige Über- 
tragungsrate einstellt, die man nach Belieben 
wieder verändern kann. Außerdem berück- 
sichtigt die Software Funktionen wie automati- 
sche Wahl, Autoantwort und auch die Träger- 
tonerkennung. 

Im Communicator ist eine große Anzahl zu- 
sätzlicher Systemkommandos implementiert. 
Dazu gehören, neben anderen, Kommandos 
zum Einschalten des Modem-ROMs, Einstellen 
der Baudrate und der Länge des Datenworts 
und für die Konfiguration des Druckers zum Er- 
stellen von Hardcopies während der Verbin- 
dung. Das Hauptproblem des Communicators 
iegt darin, daß ein Telefon nicht zum normalen 
Fernsprechen angeschlossen sein kann, wäh- 
rend das Modem aktiv ist. Es ist daher notwen- 
dig, entweder das Telefon oder das Modem 
mit der Telefonleitung zu verbinden. 


i ws3000 


Im Angebot der Miracle Technology steht 
diese Modem-Serie an der Spitze des Spek- 
trums an Microcomputer-Zubehör — sie deckt 
damit fast alle vom Anwender benötigten 
Funktionen ab. 

Die Serie WS3000 umfaßt drei Geräte, die 
insgesamt einen weiten Bereich unterschied- 
licher Übertragungsraten und Protokolle bein- 
halten, von 75/ 1200 Baud Halbduplex (für den 
Zugriff auf Prestel) bis 1200/ 1200 Baud Volldu- 
plex Übertragung für den direkten Datenaus- 
tausch zwischen den Benutzern. An der Vor- 
derseite gibt eine Reihe von Anzeigelampen 
Informationen über den Betriebszustand des 
Gerätes. Das sind beispielsweise die Opera- 
tionen auf den RS232-Leitungen. 

Jedes der drei Geräte besitzt Hilfsroutinen, 
die automatische Wahl, Autoantwort und in- 
terne Geschwindigkeitsanpassung der RS232 
unterstützen. Dazu arbeitet die WS3000-Serie 
auch nach dem Hayes-Standard, was unter 
Umständen sehr nützlich für den professionel- 
len Einsatz sein kann. 


Kurze 


Unterbrechung 


Die Zeitsteuerung ist eine der wichtigsten Betriebssystem- 
komponenten. Wie die meisten anderen Heimcomputer arbeitet auch 
der Schneider CPC mit Interrupts und Ereignissen. 


ie Zeitsteuerung des Betriebssystems ist 

für Abläufe zuständig, die zu bestimmten 
Zeitpunkten ausgelöst werden müssen. Auf 
den Schneider-Geräten arbeitet diese Zeit- 
steuerung nach zwei verschiedenen Metho- 
den: mit Hardware-„Interrupts“ und software- 
gesteuerten „Ereignissen“. 

Interruptsignale werden außerhalb des Z80- 
Microprozessors erzeugt. Sie unterbrechen die 
laufende Programmausführung und lösen be- 
stimmte Abläufe aus. 

Der Z80-Prozessor des CPC wurde für Inter- 
rupts des Modus 1 programmiert. Dabei wird 
die Programmsteuerung bei Empfang eines In- 
terrupts an die Interrupt-Bearbeitungsroutine 
(bei $0038) übergeben. Theoretisch kann je- 
des Gerät jederzeit Interrupts erzeugen und so 
die Aufmerksamkeit des Prozessors auf sich 
lenken. Auf Schneider-Geräten ohne Erweite- 
rung gibt es jedoch nur den Typ des „Timer- 
Interrupts". 

Der Timer-Interrupt wird von der ULA jede 
Dreihundertstelsekunde direkt mit der System- 
uhr (4 MHz Taktfrequenz) erzeugt. Die interne 
Zeitsteuerung (die beispielsweise von den BA- 
SIC-Befehlen AFTER und EVERY benötigt 
wird) ist eine Funktion dieser Interruptart. 

Timer-Interrupts werden direkt von den 
„Kernroutinen" der Firmware bearbeitet, die je 
nach Interruptebene (siehe Bild) weitere Firm- 
wareroutinen aktiviert. Hier die vier Signale im 
einzelnen: 

@ Der „Schnell-Interrupt" tritt auf, wenn Kern- 
routinen einen Timer-Interrupt empfangen. 

@ Der „Interrupt für Tonerzeugung“ tritt nach 
jedem dritten Timer-Interrupt ein und wird von 
der Firmware zur Synchronisierung der Daten- 
übertragung des Klang-Chips eingesetzt. Der 
Anwender kann nur indirekt (durch Zählen der 
Schnell-Interrupts) feststellen, wann diese Art 
von Interrupt eintritt. 

@ Der „Ticker-Interrupt“ tritt nach jedem 
sechsten Timer-Interrupt ein. Dabei löst die 
Firmware eine Tastaturprüfung aus. 

@ Der „Interrupt zur Bildauffrischung" tritt nach 
jedem fünften oder sechsten Timer-Interrupt 
auf (je nach angeschlossenem Bildschirm) und 
wird für alle zeitabhängigen Anzeigevorgänge 
eingesetzt. 


Die Firmware unterhält einen Zähler für 
Schnell-Interrupts, der auch dem Anwender 
zur Verfügung steht. Damit lassen sich zeitab- 
hängige Schleifen anlegen, die nicht von 
einem Programm unterbrochen werden müs- 
sen. Der Zähler kann durch den Aufruf von KL 
TIME_SET gesetzt werden (der für den Zeitge- 
ber bestimmte Wert wird im Registerpaar HL 
übergeben). Der Aufruf von KL_TIME_PLEASE 
liefert jederzeit in HL den aktuellen Zähler- 
wert. Unser Programmbeispiel zeigt den Ein- 
satz dieser beiden Routinen. Das Modul fragt 
während des angegebenen Zeitraumes die Ta- 
statur ab und löst dann einen Rücksprung aus. 


Interrupt für Tonerzeugung — jede 100stel Sekunde 


Interrupt zur Bildauffrischung — jede 50stel oder 60stel Sekunde 


Sie können aber auch direkt mit Timer-Inter- 
rupts arbeiten, wenn Sie den Einsprungspunkt 
RST 7 bei $0048 patchen. Der Patchcode sollte 
zuerst den bestehenden Drei-Byte-Eintrag ko- 
pieren und dort den neuen Eintrag (normaler- 
weise ein Sprung auf eine Speicheradresse) 
einsetzen. Dieser neue Eintrag muß verschieb- 
bar sein, damit das Modul auch dann funktio- 
niert, wenn eine zweite Routine ihn wiederum 
an eine andere Stelle kopiert. 

Die neue Routine kann einen beliebigen Ab- 
lauf ausführen (z.B. eine Uhr aktualisieren) 
und sollte danach aber die ursprüngliche Rou- 
tine mit einem Sprung auf deren neue Adresse 
aktivieren. Dieser Ablauf stellt sicher, daß zeit- 
abhängige Interruptfunktionen, wie etwa Ta- 
staturabfragen, auch weiterhin ausgeführt wer- 
den. In früheren Folgen hatten wir schon be- 
schrieben, wie sich „Code-Keile“ in Interrupt- 
routinen einsetzen lassen. 

Bisher gingen wir davon aus, daß die ULA 
die Interrupts veranlaßt. Interrupts werden 
aber auch von externen Peripheriegeräten er- 
zeugt. So könnte beispielsweise eine serielle 
Schnittstelle nach jedem empfangenen Zei- 
chen einen Interrupt auslösen, dessen Bear- 
beitungsroutine das Zeichen dort „abholt“. 


Der Prozessor der 


Schneider-Geräte kann 


das Betriebssystem 
vier Arten unterbre 


auf 


chen. Die „Timer-Inter- 
rupts“ treten in regel- 
mäßigen Abständen auf 
und synchronisieren 
die normalen OS-Funk- 
tionen. Sie steuern die 
Tastaturabfrage, die 


Bildschirmdarstellu: 


ng 


und die Datenübertra- 


gung des Tonerzeu- 
gungschips. 
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Ereignisse sind „Soft- 
ware-Interrupts“. Mit 
Hilfe des Ereignisblocks 
behält das Betriebssy- 
stem die Übersicht über 
die aktivierten Ereig- 
nisse. Dabei liefern sie- 
ben aufeinanderfolgende 
Bytes die Adresse der 
Ereignisroutine, auf die 
sich der Block bezieht, 
die Zahl der Ereignisse, 
die noch ausgeführt wer- 
den sollen und die Ereig- 
nisklasse. 


Die Kernroutine muß daher zwischen Timer- 
Interrupts und externen Interrupts unterschei- 
den können. Normalerweise ist der Z80 nach 
Empfang eines Unterbrechungssignals vor 
weiteren Interrupts abgeschirmt, damit zeitkri- 
tische Interruptroutinen nicht gestört werden. 
Die Kernroutinen zur Interrupt-Bearbeitung 
schalten den Interruptempfang jedoch wieder 
an. Wenn dabei das Interruptsignal zum Z80 
immer noch auf Null steht (Interruptanforde- 
rung), wird ein zweiter Interrupt erzeugt. Da 
ein zweiter Timer-Interrupt in diesem Stadium 
aber nicht möglich ist, muß eine externe Inter- 
ruptanforderung vorliegen — vorausgesetzt, 
das Interruptsignal bleibt bis zum Ende auf 
Null. Nach Identifizierung eines externen In- 


Der Ereignisblock 


; Example öf using the Kernel 


; 


Systemzeiger (nicht ändern) 


Ereigniszähler: Unter Null = 
Abgeschaltet 
Null = Keine 
Ereignisse übrig 
Über Null = Zahl der 
Ereignisse, die noch 
ausgeführt werden 


Ereignisklasse: Asynchron, Synchron, 
Express oder Normal 


Die Adresse der Ereignisroutine 


Byte zur Anwahl des ROMs, in dem 
sich die Routine befindet 


Felder, die vom Anwender definiert 
werden können 


ee 


“ 


timer routines 


terrupts wird die Steuerung an $003B überge- 
ben. Diese Speicherstelle sollte daher mit 
einem Sprung auf die Interrupt-Bearbeitungs- 
routine gepatcht werden, die das anfragende 
Gerät „bedient“. 

Das System unterstützt „Nicht-Maskierbare 
Interrupts" (NMI) und Standard-Interrupts. 
NMIs lassen sich im Gegensatz zu Standard- 
Interrupts nicht abschalten. NMIs können Sy- 
stemabläufe mit festem Zeitrahmen empfind- 
lich stören und sollten daher nicht verwandt 
werden. So schalten beispielsweise die Firm- 
wareroutinen zur Steuerung von Cassetten- 
und Diskettenlaufwerken sowie ein Teil der 
Klangmodule die Interrupts aus. Die Verwen- 
dung von NMIs könnte hier Chaos hervorrufen. 

„breignisse" werden am einfachsten als 
„software-Interrupts“ beschrieben. Dabei führt 
die Firmware bestimmte Aufgaben unabhän- 
gig vom gerade ablaufenden Programm aus. 
Die Firmware „weiß“ auch, zu welchem Zeit- 
punkt Ereignisse aktiviert werden sollen. 


Besondere Ereignisse 


Zwar können Ereignisse auch externe Inter- 
rupts bearbeiten, doch eignen sie sich am be- 
sten für komplizierte Simulationsprogramme 
mit Vorgängen, die parallel zum „Vordergrund- 
programm" ablaufen müssen. So arbeitet bei- 
spielsweise der SSA-1 Sprachsynthesizer mit 
Ereignissen, um Sprache von einem BASIC- 
Programm erzeugen zu lassen. 

Ereignisse werden dem Betriebssystem als 
„breignisblock“ übergeben, der mit sieben zu- 
sammenhängenden Bytes in den mittleren 32 
KBytes des Arbeitsspeichers liegt. Das neben- 
stehende Bild zeigt den Aufbau eines Ereig- 
nisblocks. Drei Felder des Blocks, die Aus- 
kunft über den Ereignistyp und die Verarbei- 
tungsadresse geben, gleichen sich bei allen 
Ereignissen. 

Der „Ereigniszähler" hält fest, wie oft das Er- 


’ 
SET.TIME: EQU ZBD10 ; read the fast tick time count eignis eingetreten ist. Für das Auslösen eines 
SER STEHEN EQU ZBDOD ; set the fast tick time count Ereignisses wird der Zähler auf eine positive 
READ.CHAR: EQU £BBO9 ; scan keyboard for char Zahl gesetzt, die die Anzahl der Ereignisse an- 
PAUSE: EQU 300 ; Pause for 300 ticks gibt. Nach Ablauf der Ereignisroutine wird der 
‚ Ld  _HL,O era A Ga zähler um Eins dekrementiert. Ein auf eine ne- 
LdD  DE.O ’ gative Zahl gesetzter Zähler schaltet dann das 
CALL SET.TIME Ereignis ab. 
. LD BC, PAUSE ; set wait period Die „Ereignisklasse" zeigt an, ob das Ereig- 
; wait for a character to become available from nis synchron oder asynchron zum Hauptpro- 
; the keyboard gramm laufen soll. Asynchrone Ereignisse 
; werden unabhängig vom Hauptprogramm aus- 
Malie ine BERD.EHAR 5 charastar paady? geführt und sind für Anwendungen gedacht, 
f a. a iR ar ni < - : die unmittelbare Reaktionen erfordern. 
CALL GET.TIME ; find the time Synchrone Ereignisse werden bei ihrem Ein- 
SBC HL,BC one second? tritt in eine Warteschlange gesetzt, die das 
’ IR  t,WArr : N ae Hauptprogramm je nach Bedarf in der Reihen- 


folge ihres Auftretens bearbeitet. Ein Ereignis 
läßt sich weiterhin auch auf „express“ oder 
„normal“ setzen. 

RET In der nächsten Folge gehen wir auf die Un- 
; terschiede der Ereignisklassen genauer ein. 
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if we get here, then routine has timed out 
go back with carry false to flag a timeout 


SS Ne 


Hoffnung durch 
HOPE-Programme 


Funktionelle Programmierung heißt das Zauberwort. Diese Technik verspricht einen 
Ausweg aus dem Software-Dilemma der heutigen Großrechner und eignet sich 


insbesondere für die Parallelverarbeitung. 


iele Computer-Wissenschaftler experi- 

mentieren mit „funktionellen“ Program- 
miersprachen, die aus der Softwarekrise her- 
aushelfen sollen. In funktionellen Sprachen er- 
stellte Programme haben den Vorteil, daß Pro- 
grammsegmente unabhängig von ihrer Soft- 
ware-„Umgebung" arbeiten. 

Diese Eigenschaft wird durch den Verzicht 
auf Variablen erreicht, die in funktionellen 
Sprachen oft ganz fehlen und durch „Funktio- 
nen" ersetzt sind. Zwei BASIC-Programme ver- 
deutlichen diese Technik: 

10X=57 

20 A = SIN(X) 

30 B=LOG(A) 

40 C = SORT(B) 

50 PRINT C 


10 PRINT SORT(LOG(SIN(57))) 


Das zweite Programm führt ohne Variablen zu 
dem gleichen Ergebnis. Es werden aus- 
schließlich Funktionen auf die Resultate ande- 
rer Funktionen angewandt. 

Zu größerer Verbreitung gelangte bisher 
hauptsächlich die reine Form der funktionalen 
Sprache LISP. Die meisten modernen Dialekte 
bieten aber zusätzliche nicht-funktionale Mög- 
lichkeiten. Auch sind Schleifen möglich, die 
die Ausführungszeiten auf den Computern ver- 
kürzen. 

HOPE ist eine rein funktionale Sprache, die 
an der Universität von Edinburgh entwickelt 
wurde. HOPE-Programme arbeiten ebenso wie 
LISP mit der Definition von Funktionen. Jede 
Funktion besteht aus einer Reihe von Glei- 
chungen, die angeben, welcher Wert für ein 
beliebiges Argument ausgegeben werden 
soll. Variablen sind zwar möglich, ihr Wert läßt 
sich aber nicht durch Befehle beliebig ändern. 

Eine Funktion zur Berechnung des Quadra- 
tes einer Zahl würde dabei so aussehen: 


dec sgare: num —> num; 
——— square (x)<=x*x; 


Dabei steht dec für „declare“ und signalisiert 
den Anfang der Definition; num —> num heißt, 
daß die Funktion square eine Zahl als Argu- 
ment hat, und eine Zahl als Wert ausgibt (ähn- 
lich wie in PASCAL gehören Werte in HOPE 


einer bestimmten Klasse an). Die mit ——— be- 
ginnende Gleichung bedeutet, daß das Qua- 
drat einer Zahl gleich dieser mit sich selbst 
multiplizierten Zahl ist. Das Symbol <= be- 
deutet „wird definiert als" bzw. „kann ersetzt 
werden durch“. x auf der linken Seite bezieht 
sich auf jede als Argument gegebene Zahl. 

Wenn wir bei der Anwendung der Funktion 
square(4) eingeben, antwortet HOPE mit 
l6:num, also Ergebnis und Werteklasse. Der 
Ausdruck square darf auch innerhalb anderer 
Funktionen aufgerufen werden. 

Etwas komplizierter ist es, mit HOPE die Fa- 
kultät einer Zahl zu berechnen: 


dec fact: num —>num; 
——— fact (0) <=1; 
——— fact (suce(n))<=(succ(n)*fact(n)); 


Die beiden Gleichungen legen den Funktions- 
wert für alle möglichen Fälle fest (num bein- 
haltet nur positive Zahlwerte; negative sind 
ausgeschlossen). Wenn das Argument 0 ist, 
wird l als Ergebnis ausgegeben. In jedem an- 
deren Fall ist die Fakultät von „eins-mehr-als- 
n“ n-mal Fakultät „eins-mehr-als-n". Das ist 
eine rekursive Definition, weil fact über sich 
selbst definiert wird; funktionelle Sprachen 
nutzen eben solche Rekursion anstelle von 


Die funktionale Com- 
putersprache „HOPE“ 
wurde in der Informa- 
tik-Abteilung der Uni- 
versität Edinburgh ent- 
wickelt. Neben R.M 
Burstall und D. B. Mac- 
Queen war auch der 
amerikanische Wissen- 
schaftler D. T. Sannella 
von den Bell Laborato- 
ries daran beteiligt. 
Ihren Namen erhielt die 
Sprache nach der 
Straße, an der die For- 
schungseinrichtung 
liegt: dem Hope Square 
in Edinburgh. 
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Der Entwurf umfangrei- 
cher computergesteuer- 
ter Systeme, wie bei- 
spielsweise für diese 
Frühwarnstation in 
North Yorkshire, ist ein 
sehr schwieriges Unter- 
fangen. Bei herkömm- 
lichen Verfahren muß 
die Arbeit vieler Pro- 
grammierer zu einem 
riesigen Gesamtpro- 
gramm zusammenge- 
faßt werden. Änderun- 
gen und Erweiterungen 
können unendliche Pro- 
bleme aufwerfen. Es 
wird erwartet, daß die 
Fortschritte in der funk- 
tionalen Programmie- 
rung hier zu Erleichte- 
rungen beitragen. 
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Programmschleifen. 
Die Reihenfolge der Gleichungen ist belie- 
big, es würde auch so gehen: 


dec fact:num—>num; 
——— fact(suce(n))<=(succ(n)*fact(n)); 
——— fact (0) <=1; 


Die Funktion succ (successor=Nachfolger), 
die eine um 1 größere Zahl als das Argument 
ergibt, gehört zu den in HOPE „eingebauten“ 
constructor-Funktionen. Jede HOPE-Daten- 


Die Software-Krise 


Software-Krise ist eine etwas dramatische Be- 
schreibung der heutigen Situation: Den im- 
mer leistungsfähigeren und preisgünstigeren 
Rechnern steht die vergleichsweise teure 
Software gegenüber. Ungleich stark steigen 
die Kosten für die Programmpflege. Und die 
Zuverlässigkeit von Programmen bleibt nach 
wie vor ein Problem. 

Ursache für diese Schwierigkeit ist die 
Struktur herkömmlicher Programmierspra- 
chen. Zwar führten neue Sprachen wie PAS- 
CAL zu einigen Verbesserungen; es bleibt 
aber weiterhin schwierig, aus dem Listing 
eines Programms abzulesen, was es eigent- 
lich tut. Das gilt speziell für Assembler und 
nichtstrukturierte Sprachen wie BASIC oder 
FORTRAN. Selbst bei selbstgeschriebenen 
Programmen ist es oft schwer, ihren Ablauf 
später nachzuvollziehen. So etwas erschwert 
die Programmpflege. Große Software-Sy- 
steme, wie sie in der Raumfahrt oder beim 
Militär eingesetzt werden, sind kaum noch für 
den einzelnen überschaubar. 

Eine der Schwierigkeiten beim Verstehen 
von Programmen liegt darin, daß sie von der 
Entwicklungsgeschichte abhängen, also „hi- 
storisch“ betrachtet werden müssen. Änders 
als in einer mathematischen Formel stellt ein 
Computerprogramm nicht alle Informationen 
dar, mit denen es zu einem bestimmten Zeit- 
punkt arbeitet; so hängen etwa die Variablen 
eines konventionellen Programms vom bishe- 
rigen Programmablauf ab. Nehmen Sie dieses 


klasse wird von einer speziellen constructor- 
Funktion gebildet. Wenn etwa die Konstante 3 
eingegeben wird, berechnen wir eine Funk- 
tion mit dem Namen und Wert 3, tatsächlich 
aber die Kurzform des Ausdrucks 
succ(succ(succ(0))). 
Um verschiedene Objekte einer Klasse zu 
speichern, verwendet HOPE anstelle von Ar- 
rays sog. Listen. Listen stehen in Klammern: 
[1,2,3,4] ist also eine Liste mit vier Zahlen, die 
über bestimmte Ausdrücke weiterverarbeitet 
werden können. Auf das Beispiel angewandt, 


BASIC-Programm für den Acorn als Beispiel: 

10 FLAG%=0 

15 REM 

20 DEF FNx (A%) 

30 FLAG%=1 

40 =2*A% 

45 REM 

50 DEF FNy(A%) 

60 LOCAL B% 

70 IF FLAG%THENB%=3 ELSE B%=4 
80 =B%*+A% 

85 REM 

90 PRINT FNy(2)+FNx(1) 
100 PRINT FNy(2)+FNx(1) 


Die beiden Print-Befehle zeigen den Wert 8 
bzw. 10. Der Wert von PRINT FNy(2)+FNx(1) 
ist jeweils verschieden. Eine Änderung der 
Reihenfolge würde ebenfalls das Ergebnis 
beeinflussen: FNy(2)+FNx(l) ist nicht das 
gleiche wie FNx(1)+FNy(2). Um ein Pro- 
gramm ganz zu verstehen, muß man es meist 
im Kopf oder schriftlich ausführen. 

Im Gegensatz hierzu sind mathematische 
Ausdrücke einfach. 


(3+4)*(6-2)=(4+3)*(6-2)—=7*4=28 


hat immer den gleichen Wert, weil das ma- 
thematische Gesetz besagt, daß 3 + 4 das 
gleiche ist wie 4 + 3. Der Wert eines Aus- 
druckes ergibt sich immer aus dem Wert sei- 
ner Komponenten. In konventionellen Pro- 
grammen ist das leider anders. 

Wenn es gelingt, Programmen diese ma- 
thematischen Eigenschaften zu verleihen, er- 
geben sich viele Vorteile — die „Software- 
Krise“ hätte ein Ende: 


@ Programme wären lesbar. Das Programmli- 
sting würde eindeutig und ohne Abhängig- 
keit von der Vorgeschichte die Funktion dar- 
stellen. 

@ Wie bei Theorien könnte bewiesen wer- 
den, daß Programme für alle denkbaren Ein- 
gaben richtig arbeiten und nicht nur bei eini- 
gen wenigen Prüfwerten. Solche Tests könn- 
ten vom Computer durchgeführt werden. 

@ Richtige, aber uneffektive Programme 
könnten mit ähnlichen Verfahren wie den in 
der Mathematik gebräuchlichen umgewandelt 
werden. Auch dieser Vorgang ließe sich auto- 
matisieren. 


würde etwa das x im Ausdruck x::y das erste 
Element der Liste (1) bedeuten, y den Rest 
[2,3,4]. Das Symbol :: heißt „cons“ und ist die 
constructor-Funktion für Listen. 

Textstrings werden als Listen von Buchsta- 
ben dargestellt und können zwei Formen ha- 
ben: „fred“ wäre das gleiche wie ‚f',r,e',d. 
Eine Funktion, die die Buchstaben eines Wor- 
tes zählt, könnte so aussehen: 


dec lettercount: list char ->num; 
——— lettercount (nil) <=0; 
——— lettercount (x::y)<=lettercount 
(vıHT; 


nil bedeutet hier eine leere Liste. Die Funktion 
arbeitet so: 


letter count („aardvaark”); 
9:num 


Parallelverarbeitung 


Ein großer Vorzug funktionaler Program- 
mierung liegt darin, das diese Technik 
sich sehr gut für die Parallelverarbeitung 
eignet. Jeder Programmteil funktioniert un- 
abhängig von den anderen. In herkömm- 
lichen Sprachen war die Nutzung gemein- 
samer Variablen durch mehrere Pro- 
grammteile das Nadelöhr für die Parallel- 
verarbeitung. Stellen Sie sich diese beiden 
BASIC-Programme bei simultaner Abar- 

er Karl vor: 


20 FOR X=1 TOK 


10 B=0 


100 NEXT X 


2000 A=B + 56 2000 PRINT A 


Der für A ausgegebene Wert hängt davon ab, 
ob das erste Programm bereits Zeile 2000 er- 
reicht hat. Falls nicht, ist A noch 0. Die Verar- 
beitungszeit für das erste Programm hängt 
aber vonKab... damit wird das Ergebnis 
unkalkulierbar. 

In einer Programmiersprache vom HOPE- 
Typ, bei der es keine Variablen gibt, kann so 
etwas nicht vorkommen. Als Beispiel soll ein 
Programm dienen, das die Summe der Fakul- 
täten einer Zahlenliste erzeugt. Die Fakultäts- 


berechnung kennen wir schon: 
dec fact:num —>num; 


== Tact(0) <=1; 
——— fact(suce(n)) <=(succ(n)*fact(n)); 


Jetzt können wir unter Verwendung von fact 
summieren: 

dee factsum:list{num) —>num; 

— 7 factsum(nil) <=0; 

——— factsum(x::y)<=fact(x) + factsum(y); 


Die Datenklassen sind bei HOPE flexibler als 
bei PASCAL, man kann auch Funktionen er- 
zeugen, die unterschiedliche Klassen verar- 
beiten: 

typevar:alpha 


dec listcount:list (alpha) 
——— listeount (nil) 
——— listeount (x::y) 


—>num; 
<=; 
<=listcount (y) +1; 


Damit ließe sich die Anzahl der Elemente je- 
der Liste zählen — man könnte demnach ein- 
fach auf lettercount verzichten. 

Programmierer können ihre eigenen Daten- 
klassen definieren, die entweder als Argu- 
mente oder als Funktionswerte verwendet wer- 
den. Selbst Funktionen können als Argument 
verwendet oder als Resultat ausgegeben wer- 
den. Damit ist der Weg zu sehr leistungsfähi- 
gen Programmen offen. 


Das bedeutet, daß die Fakultätssumme einer 
Leerliste 0 ist, andernfalls wird die Fakultät 
des ersten Elementes zur Fakultätssumme 
des Restes hinzugezählt. Die zwei Ausdrücke 
auf der rechten Seite der zweiten Gleichung 
sind völlig unabhängig voneinander und las- 
sen sich daher parallel berechnen. 

Es kann jederzeit ein zusätzlicher Prozes- 


factsum ([33,49,57]) 


dr 


fact (33) + factsum ([49,57]) 


ar 


fact (49) + factsum ([57]) 


=y> 


fact (57) + factsum (nil)-=0 


sor zur Berechnung herangezogen werden, 
wobei der erste Prozessor die Teilresultate 
beim Erreichen der 0 addiert. So arbeitet 
auch der am Imperial College entwickelte Pa- 
rallelrechner ALICE, der über eine Ringkonfi- 
guration von Inmos-Transputern verfügt. Je- 
der freie Prozessor im Ring kann eine der 
Teilaufgaben übernehmen, die über den Ring 
zur Bearbeitung angeboten werden. 
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Wer mit dem Anspruch 
wirbt, das „erste Com- 
puter-Rockmusical“ mit 
einem „beim Commo- 
dore 64 unerreichten 
Funky Sound“ auf den 
Markt zu bringen, muß 
schon ein recht gutes 
Spiel geschrieben ha- 
ben - sonst folgt der 
Frust den hochgesteck- 
ten Erwartungen auf 
dem Fuße. 
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Auf vollen Touren 


Ein Rockmusical für den Commodore 64 ist der „Ghetto Blaster“. Bei 
diesem aktionsreichen Spiel sorgen heiße Rhythmen statt Blaue 


Bohnen für die nötige Spannung. 


er „Ghetto Blaster" hat wie alle guten 

Spiele ein relativ simples Konzept. Funk- 
Fan „Rocking Rodney“ ist gerade als Bote bei 
der Plattenfirma „Interdisc" angestellt worden 
und soll bis zum Abend zehn Vorführbänder 
zur Zentrale in die Funky Street bringen. Un- 
term Arm trägt er seinen „Ghetto Blaster" — 
und läßt unbekümmert die Cassetten laufen. 
Wenn Sie Rodney mit seinem Turbosound auf 
arglose Fußgänger zielen lassen und den Joy- 
stick drücken, fährt das den Leuten ganz schön 
in die Knochen — aber Rodneys Welt besteht 
nicht nur aus solchen Freuden. 

Der Auftrag muß nämlich erledigt sein, be- 
vor das Zählwerk des Ghetto Blaster auf 999 
steht, und außerdem muß Rodney aufpassen, 
daß die Batterien nicht leer werden. Gleichzei- 
tig versucht die berüchtigte Bande „Gangsters 
of the Groove" ihm die Cassetten wegzu- 
schnappen, der Psycho-Killer liegt auf der 
Lauer, und mit dem langen Arm des Gesetzes 
ist auch nicht zu spaßen. Die Musikmaschine 
kann bei einem jähen Zusammenprall mit dem 
„disco-tauben“ Passanten demoliert werden, 
und das kostet wieder wertvolle Zeit in der 
Werkstatt. Erschwerend kommt hinzu, daß die 
zehn Cassetten überhaupt erst aufgespürt wer- 
den müssen, denn sie sind in ganz Funky Town 
versteckt, und zwar in bestimmten Hausein- 
gängen. Jeder einzelne dieser Einfälle ist viel- 
leicht gar nicht übermäßig aufregend, aber in 
der Summe machen sie das Spiel doch höchst 
verwickelt und attraktiv. 

Der Bildschirm ist zweigeteilt: Die obere 
Hälfte zeigt die Straße, die Rodney gerade mit 


seinem Beat beschallt — laut Beiblatt sogar in 
3 D-Wiedergabe, was leicht übertrieben er- 
scheint. Im übrigen sind die Szenen aber recht 
hintersinnig. Die Straßenzüge „Strawberry 
Fields" und „Blueberry Hill" liegen durchaus in 
einer feinen Gegend, während „Desolation 
Row“ und „Stoney End“ deprimierend verwahr- 
lost sind. Die untere Schirmhälfte nimmt Rod- 
neys Stereokoffer ein, bei der Sie vor allem 
das Zählwerk mit der Zeitanzeige und die Bat- 
teriekontrolle im Auge behalten müssen. Den 
Lautstärkeregler dürfen Sie nicht zu weit auf- 
reißen, damit die Batterien länger halten. 


Ghetto Blaster 


Der Ghetto Blaster holt das letzte an Funky 
Sound aus dem Commodore 64 heraus. Rod- 
neys erste Cassette mit dem beziehungsrei- 
chen Titel „Last Year's T-Shirt Mix" setzt den 
Maßstab für die folgenden Nummern — kein 
Wunder, daß die Passanten bei dem fetzigen 
Disco-Beat so schnell in Fahrt kommen. Wenn 
Sie davon trotzdem genug haben, sollten Sie 
zwischendurch ruhig mal irgendwo einkaufen 
gehen (nicht ohne sich dem Vorwurf auszuset- 
zen, ein Materialist zu sein). Sie können auch 
in eins der Häuser hineinschlüpfen (sofern Sie 
nicht hören „I hear you knocking, but you can't 
come in"), oder vielleicht juckt Sie ein Trip 
durch den „Itchycoo-Park“. Wenn Sie sich ver- 
laufen haben, lassen Sie am besten ein Stoß- 
gebet los, daß Ihnen ein Treffen mit „Jumping 
Jack Flash“ beschert. Dessen Richtungssinn ist 
nämlich Spitze. Und wenn der Ofen aus ist, 
drücken Sie die Leertaste und machen Pause. 

Der Ghetto Blaster ist im Prinzip zwar auch 
ein Baller-Spiel, aber statt Kanonen dröhnen 
hier erfreulicherweise nur heiße Rhythmen. 
Das Spiel ergreift wie eine heiße Popnummer 
unbewußt von Ihnen Besitz und läßt Sie süchtig 
werden. Es ist gekonnt gemacht, sogar mit Hu- 
mor, der den meisten Spielen ja total abgeht. 

Am Ghetto Blaster haben deshalb alle ihren 
Spaß, vor allem natürlich Teenager, selbst 
wenn sie den Anspielungen auf die Musik der 
ausgehenden sechziger Jahre nicht immer fol- 
gen können. Und eine Straße namens „Hold 
Me Close“ beeindruckt wahrscheinlich nur die 
David-Essex-Fans. Aber auch ohne daß jeder 
die feinen Spitzen voll würdigen kann, hat der 
Ghetto Blaster alle Chancen, ein Millionenhit 
zu werden. 


Fachwörter von A bis Z 


Read/Write Head = 
Schreib/Lese-Kopf 

Dieses Bauteil im Cassetten- und 
Diskettenlaufwerk besorgt beim 
Schreiben die oberflächliche Magne- 
tisierung des Datenträgers und fragt 
sie beim Lesen wieder ab. Bei der 
Aufzeichnung werden Ströme durch 
eine kleine Spule mit Eisenkern im 
Magnetkopf geschickt, um entlang 
von „Spuren“ in der ferromagneti- 
schen Beschichtung die Bits „einzu- 
magnetisieren“. Das Lesen setzt vor- 
aus, daß sich das Speichermedium 
relativ zum Kopf bewegt: Dann wirkt 
auf die Kopfspule ein veränderliches 
Magnetfeld, das in der Wicklung 
dem Bitmuster entsprechend elektri- 
sche Spannungsimpulse induziert, 
die verstärkt und an die CPU über- 
tragen werden. 


Real Time = Echtzeit 

Bei Echtzeit-Betrieb muß der Rech- 
ner auf jede Eingabe ohne Verzöge- 
rung reagieren. Bei einer Prozeß- 
steuerung ist das ebenso wichtig 
wie bei einem Flugsimulator, wo die 
Situation so realistisch wie möglich 
wirken soll. 

Es kostet erhebliche Mühe, die 
Reaktionszeit bei solchen Systemen 
auf ein Minimum zu reduzieren. Wel- 
che Verzögerung noch zulässig ist, 
hängt weitgehend vom konkreten 
Anwendungsfall ab. Weder bei der 
Bestätigung einer Buchung am Flug- 
büro noch bei einem Kassenautoma- 
ten kommt es auf Millisekunden an, 
anders als etwa bei der radarge- 
stützten Flugüberwachung. Ein Echt- 
zeit-System im eigentlichen Sinn ver- 
langt extrem schnelle und effiziente 
Soft- und Hardware. 


Record = Datensatz 
Wie vieles andere hat auch „Re- 
cord“ in der Datenverarbeitung 
mehrere (allerdings verwandte) Be- 
deutungen. Meist ist ein „Record“ 
eine Informationseinheit innerhalb 
eines „Files“, die selbst wieder aus 
inhaltlich zusammengehörigen Da- 
tenfeldern aufgebaut ist. Dafür ist 
auch die Bezeichnung „logischer 
Datensatz“ gebräuchlich. 

Zu unterscheiden davon sind Re- 


Hier werden einzelne Fach- 
ausdrücke eingehend behandelt. 
Da bei der Kommunikation mit 
dem Computer meist die 
englische Sprache verwendet 
wird, werden hier zunächst die 
englischen Begriffe genannt, 
dann die deutsche Übersetzung. 
In den Gesamtindex werden 
sowohl deutsche als auch 
englische Stichwörter aufge- 
nommen, damit Sie es leichter 
haben, das von Ihnen 
Gesuchte zu finden. 


cords oder „Blöcke“, aus denen die 
Information auf dem Datenträger 
hardwaremäßig zusammengesetzt ist. 
Diese „physischen“ Datensätze stel- 


Recoverable Error = 
Regenerierbarer Fehler 
Wenn der Rechner Daten vom Band 
einliest, stellt die Fehlererkennungs- 
routine (meist anhand einer Paritäts- 
oder Prüfsummenabfrage) hin und 
wieder Unstimmigkeiten fest. Oft 
handelt es sich dabei nur um ein 
einziges falsches Bit in einer langen 
Datei. Statt nun alles erneut einlesen 
zu müssen, gibt es eine Methode, 
bei der nur die fehlerhaften Daten 
neu geladen werden müssen. Ge- 
lingt das ohne abermaligen Protest, 
handelte es sich um einen „regene- 
rierbaren“ Fehler. 

Großrechner und Minicomputer, 
bei denen die CPU direkt den Band- 
lauf überwacht, gehen meist von sich 


Zur Gewährleistung der nötigen Wirklichkeitstreue müssen bei einem Flug- 
simulator für das Pilotentraining alle Steuerungsreaktionen und Instrumen- 
ten-Rückmeldungen genauso spontan wie im realen Cockpit erfolgen. Um die 
erforderliche Ansprechgeschwindigkeit des Rechnersystems bei solchen 
Echtzeit-Problemen zu erzielen, kommt nur die Programmierung in einer 
Compilersprache in Frage. 


len die kleinste Datenmenge dar, die 
der Magnetspeicher akzeptiert oder 
selbst an die CPU liefert. Bei CP/M 
etwa entspricht die Blocklänge mit 
128 Byte gerade einem Diskettensek- 
tor. Ein physischer Datensatz bildet 
demnach logischerweise eine durch 
die Formatierung des Datenträgers 
definierte Einheit. 


aus an die Behebung derartiger 
Fehler: Das Band wird nach dem 
Erkennen sofort gestoppt. 
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Schreiberlinge 
Mit Spielprogrammen Karriere zu machen, ist 
der Traum vieler Computer-Freunde. Sie muß 
nur richtig eingeschätzt werden. 


Wortwechsel mit Unix 
Unix bietet eine Vielzahl von hilfreichen 
Dienstprogrammen. 


Unter der Haube 

In diesem Artikel wird die Architektur 
von drei gängigen Heimcomputern 
betrachtet. 


BIP Ereignisreich 

NLA Wir zeigen Ihnen in diesem Artikel, 
wie sich „Ereignisse“ in der Maschi- 
nencodeprogrammierung einsetzen 
lassen. 


